Mengosongkan edit menggunakan Array pada delphi

Wibowo Laksono Rabu, Januari 01, 2014 4 comments

Untuk hari ini saya akan sedikit berbagi bagaimana cara Mengosongkan edit menggunakan Array pada delphi, mungkin temne temen lebh sering mengosongkan komponen edit dengan cara edit1.clear atau edit1.text :='' nah sekarang saya akan mengosongkan edit menggunakan array caranya

1. Buat procedure

procedure TForm1.TextClear(com : Array of TCustomEdit);
var
I : Integer;
begin
for I := Low(com) to High(com) do
begin
TCustomEdit(Components[I]).Text := '';
end;
end;

2. Cara penggunaan

procedure TForm1.Button1Click(Sender: TObject);
begin
TextClear([Edit1, Edit2, Edit3]);
end;

Nah gampang bukan Misalkan kita ingin mengosongkan 10 buah edit
tidak perlu Edit1.text := '';...Edit10.Text :=''; cukup dengan TextClear([Edit1, Edit2, Edit3, Edit4,...Edit10]);