Mengosongkan edit menggunakan Array pada delphi

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]);

Ok sekian semoga bermanfaat  

Read More