Delphi function to return any object type value
Perlu bikin function di Delphi yang return value-nya bukan integer, string, tapi Object, misalnya TStringList? Delphi bisa melakukan hal ini, tapi yang penting diingat adalah, object yang di-create secara manual, harus di-free secara manual pula, kalo nggak memory bakalan leak.
Ini caranya:
Misal definisi function sbb:
begin
result := TStringList.Create;result.Add(‘an item’) ;
end;
Terus cara manggilnya adalah sbb:
sl : TStringList;
begin
sl := GetStringList;
try
ShowMessage(sl[0]) ;
// atau misal lainnya
// ListBox1.Items.Assign(sl) ;
finally
sl.Free;
end;
end;
Yang penting diperhatikan disini adalah variabel TStringList yang kita punya ("sl"), yang dipake untuk nerima hasil dari function GetStringList. Setelah dilakukan sesuatu pada variabel itu, pada akhirnya kita harus menghapus variabel ybs dari memory – untuk menghindari memory leak, yaitu dengan sl.Free.
Jadi yang perlu diingat adalah: ketika suatu function return valunya adalah instance of an object – selalu pastikan bahwa kita tau siapa yang perlu mem-free object tsb ketika sudah tidak diperlukan lagi!
Sumber: google.com search "delphi function return tstringlist"
Akhmad Daniel Sembiring
vITraining.com – Qualified IT Products, Outsourcing, and Services
Ligarwangi.com – Linux, E-book, Coffee, Gift, etc
Recent Comments