Delphi ve Generic List |
Yanıt Yaz |
Yazar | |
turknetyazilim
Üye Profili
Özel Mesaj Yolla
Bu kullanıcıya ait mesajları bul
Üyenin Web Sitesie Git
Arkadaş Listeme Ekle
Moderator Group Kayıt Tarihi: 18.Ocak.2008 Bulundugu Yer: Balıkesir Online: Sitede Değil Gönderilenler: 214 |
Alıntı Cevapla
Konu: Delphi ve Generic List Gönderim Zamanı: 06.Aralik.2010 Saat 09:28 |
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 :) |
|
Yanıt Yaz |
Forum Atla | Forum İzinleri Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |