lazarus : kosongkan obyek secara cepat

Untuk mengosongkan obyek biasanya kita menggunakan teknik per obyek, misal jika kita ingin mengosongkan nilai dari textbox1, maka skrip yang kita tulis adalah seperti ini:

textbox1.text='';

Bayangkan jika textbox yang akan kita kosongkan berjumlah 100 atau lebih, maka akan sangat banyak baris skrip yang kita tulis. Untuk itu diperlukan penyederhanaan kode atau skrip seperti di bawah ini:

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to ComponentCount-1 do
begin
if( Components[ i ] is TEdit )then
begin
  (Components[ i ] as TEdit).Text :='';
end;
end;
end;

Sebagai catatan, kode ini juga memiliki kelemahan yaitu semua jenis obyek yang termasuk di dalam skrip di atas, maka akan terkosongi secara otomatis. Jadi misalnya jenis obyek tersebut adalah textbox, maka seluruh nilai textbox akan kosong.

Share: