unit UMain;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Generics.Defaults, Generics.Collections;
type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
type TNesne = class private FAdi: string; public constructor Create(const AAdi: string); destructor Destroy(); override; end;
var Form1: TForm1;
implementation
{$R *.dfm}
constructor TNesne.Create(const AAdi: string); begin FAdi := AAdi; inherited Create; end;
destructor TNesne.Destroy; begin inherited; end;
procedure TForm1.Button1Click(Sender: TObject); var NesneListesi: TObjectList < TNesne > ; Nesne: TNesne; begin { yeni liste oluşturuluyor } NesneListesi := TObjectList < TNesne > .Create(); NesneListesi.OwnsObjects := true;
{ Liste elemanları ekleniyor } NesneListesi.Add(TNesne.Create('İsmail')); NesneListesi.Add(TNesne.Create('Kemal'));
Nesne := TNesne.Create('Yücel'); NesneListesi.Add(Nesne);
Memo1.Lines.Clear; for Nesne in NesneListesi do Memo1.Lines.Add(Nesne.FAdi);
end;
end. Delphi 2010 da Gördüğüm Genericler Alt versiyonlarda varmıdır bilmiyorum :)
|