Changeset 78 for Generics/TemplateGenerics/Demo/UMainForm.pas

Timestamp:

Oct 30, 2010, 6:39:12 PM (14 years ago)

Author:

george

Message:

• Added: Ability of TListObject to own items and be able to free them on deletion and list destruction.

Location:

Generics/TemplateGenerics/Demo

Files:

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

Generics/TemplateGenerics/Demo

@@ -1 +1 @@
 lib
 Demo.exe
+heaptrclog.trc
+Demo

@@ -1 +1 @@
 lib
 Demo.exe
+heaptrclog.trc
+Demo

Generics/TemplateGenerics/Demo/UMainForm.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   ComCtrls, ListInteger, ListString, DictionaryString, QueueInteger, ListChar,
-  ListPointer, DateUtils, ListVariant;
+  ListPointer, DateUtils, ListVariant, Contnrs, ListObject;
 
 type
@@ -15 +15 @@
 
   TMainForm = class(TForm)
+    ButtonListObject: TButton;
     ButtonBenchmark: TButton;
     ButtonCharList: TButton;
@@ -26 +27 @@
     procedure ButtonDictionaryStringClick(Sender: TObject);
     procedure ButtonIntegerListClick(Sender: TObject);
+    procedure ButtonListObjectClick(Sender: TObject);
     procedure ButtonQueueIntegerClick(Sender: TObject);
     procedure ButtonStringListClick(Sender: TObject);
@@ -71 +73 @@
     MoveItems(3, 2, 3);
     WriteLn('Implode: ' + Implode(',', IntToStr));
+  finally
+    Free;
+  end;
+end;
+
+function ObjectToStr(Obj: TObject): string;
+begin
+  Result := Obj.ClassName;
+end;
+
+procedure TMainForm.ButtonListObjectClick(Sender: TObject);
+var
+  List: TListObject;
+  I: Integer;
+begin
+  MemoOutput.Clear;
+  WriteLn('TListObject test');
+  List := TListObject.Create;
+  with List do try
+    AddArray([TObject.Create, TObject.Create, TObject.Create, TObject.Create]);
+    WriteLn('Implode: ' + Implode(',', ObjectToStr));
+    Clear;
+    for I := 0 to 10 do Add(TObject.Create);
+    WriteLn('Implode: ' + Implode(',', ObjectToStr));
+    WriteLn('Count: ' + IntToStr(Count));
+    WriteLn('Implode: ' + Implode(',', ObjectToStr));
+    WriteLn('Reverse');
+    Reverse;
+    WriteLn('Implode: ' + Implode(',', ObjectToStr));
+    MoveItems(3, 2, 3);
+    WriteLn('Implode: ' + Implode(',', ObjectToStr));
   finally
     Free;
@@ -207 +240 @@
     List.Clear;
 
+    for I := 0 to 1000000 do
+      List.Add(1);
+    StartTime := Now;
+    I := 0;
+    repeat
+      List.Exchange(300000, 700000);
+      Inc(I);
+    until (Now - StartTime) > OneSecond;
+    WriteLn('Exchange: ' + IntToStr(I) + ' ops/sec');
+    List.Clear;
+
+    for I := 0 to 1000000 do
+      List.Add(1);
+    StartTime := Now;
+    I := 0;
+    repeat
+      List.IndexOf(Pointer(I mod List.Count));
+      Inc(I);
+    until (Now - StartTime) > OneSecond;
+    WriteLn('IndexOf: ' + IntToStr(I) + ' ops/sec');
+    List.Clear;
   finally
     List.Free;
@@ -238 +292 @@
     WriteLn('Delete: ' + IntToStr(I) + ' ops/sec');
 
-      for I := 0 to 1000000 do
-      List2.Add(1);
+    for I := 0 to 1000000 do
+    List2.Add(1);
     StartTime := Now;
     I := 0;
@@ -247 +301 @@
     until (Now - StartTime) > OneSecond;
     WriteLn('Move: ' + IntToStr(I) + ' ops/sec');
+
+    for I := 0 to 1000000 do
+    List2.Add(1);
+    StartTime := Now;
+    I := 0;
+    repeat
+      List2.Exchange(300000, 700000);
+      Inc(I);
+    until (Now - StartTime) > OneSecond;
+    WriteLn('Exchange: ' + IntToStr(I) + ' ops/sec');
+
+    for I := 0 to 1000000 do
+    List2.Add(1);
+    StartTime := Now;
+    I := 0;
+    repeat
+      List2.IndexOf(Pointer(I mod List.Count));
+      Inc(I);
+    until (Now - StartTime) > OneSecond;
+    WriteLn('IndexOf: ' + IntToStr(I) + ' ops/sec');
 
   finally

@@ -1 +1 @@
 lib
 Demo.exe
+heaptrclog.trc
+Demo