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
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
1. Buat procedure
procedure TForm1.TextClear(com : Array of TCustomEdit);2. Cara penggunaan
var
I : Integer;
begin
for I := Low(com) to High(com) do
begin
TCustomEdit(Components[I]).Text := '';
end;
end;
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
4 komentar