Changeset 37 for Generics/UMainForm.pas

Timestamp:

Aug 4, 2010, 1:49:55 PM (14 years ago)

Author:

george

Message:

• Upraveno: Vylepšena obecná třída seznamu.
• Přidáno: Soubory jednotek pro další obecné třídy.

Location:

Generics

Files:

• . (modified) (1 prop)
• UMainForm.pas (modified) (4 diffs)

Generics

@@ -1 +1 @@
 lib
 project1.exe
+heaptrclog.trc
+Test.exe

@@ -1 +1 @@
 lib
 project1.exe
+heaptrclog.trc
+Test.exe

Generics/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  GenericList;
+  GenericList, GenericSet;
 
 type
+
+  { TMyObject }
+
+  TMyObject = class
+    Name: string;
+    constructor Create(AName: string);
+  end;
+
+  TMyObjectList = specialize TGList<Integer, TMyObject>;
+
   { TMainForm }
 
@@ -15 +25 @@
     Memo1: TMemo;
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
     { private declarations }
   public
-    IntegerList: TIntegerList;
-    StringList: TStringList;
+    IntegerList: TIntegerGList;
+    StringList: TStringGList;
+    MyObjectList: TMyObjectList;
   end;
 
@@ -34 +46 @@
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
-  IntegerList := TIntegerList.Create;
-  StringList := TStringList.Create;
+  IntegerList := TIntegerGList.Create;
+  StringList := TStringGList.Create;
+  MyObjectList := TMyObjectList.Create;
+end;
+
+procedure TMainForm.FormDestroy(Sender: TObject);
+begin
+  IntegerList.Destroy;
+  StringList.Destroy;
+  MyObjectList.Destroy;
 end;
 
@@ -53 +73 @@
   IntegerList.Add(12121);
   IntegerList.Add(5);
+
+  for I := 0 to StringList.Count - 1 do
+    Memo1.Lines.Add(StringList[I]);
+
   StringList.Add('One');
   StringList.Add('Two');
   StringList.Add('Three');
 
-  for I := 0 to StringList.Count - 1 do
-    Memo1.Lines.Add(StringList[I]);
-
   IntegerList.Sort(@IntegerListCompare);
   for I := 0 to IntegerList.Count - 1 do
     Memo1.Lines.Add(IntToStr(IntegerList[I]));
+
+  MyObjectList.Add(TMyObject.Create('Object 1'));
+  MyObjectList.Add(TMyObject.Create('Object 2'));
+  MyObjectList.Add(TMyObject.Create('Object 3'));
+
+  for I := 0 to MyObjectList.Count - 1 do
+    Memo1.Lines.Add(MyObjectList[I].Name);
+end;
+
+{ TObjectItem }
+
+constructor TMyObject.Create(AName: string);
+begin
+  Name := AName;
 end;
 

@@ -1 +1 @@
 lib
 project1.exe
+heaptrclog.trc
+Test.exe