Changeset 80 for Generics/TemplateGenerics/Demo/UMainForm.lfm

Timestamp:

Oct 30, 2010, 7:31:20 PM (14 years ago)

Author:

george

Message:

• Added: Benchmark for comparasion between classes TStringList and TDictionaryStringString.

File:

• Generics/TemplateGenerics/Demo/UMainForm.lfm (modified) (7 diffs)

Generics/TemplateGenerics/Demo/UMainForm.lfm

@@ -15 +15 @@
     Height = 25
     Top = 8
-    Width = 112
+    Width = 128
     Caption = 'TListInteger'
     OnClick = ButtonIntegerListClick
@@ -21 +21 @@
   end
   object MemoOutput: TMemo
-    Left = 128
+    Left = 144
     Height = 384
     Top = 8
-    Width = 344
+    Width = 328
     Anchors = [akTop, akLeft, akRight, akBottom]
     ReadOnly = True
@@ -34 +34 @@
     Height = 25
     Top = 40
-    Width = 112
+    Width = 128
     Caption = 'TListString'
     OnClick = ButtonStringListClick
@@ -43 +43 @@
     Height = 25
     Top = 72
-    Width = 112
+    Width = 128
     Caption = 'TDictionaryString'
     OnClick = ButtonDictionaryStringClick
@@ -52 +52 @@
     Height = 25
     Top = 102
-    Width = 112
+    Width = 128
     Caption = 'TQueueInteger'
     OnClick = ButtonQueueIntegerClick
@@ -61 +61 @@
     Height = 25
     Top = 134
-    Width = 115
+    Width = 129
     Caption = 'TListChar(TString)'
     OnClick = ButtonCharListClick
     TabOrder = 5
   end
-  object ButtonBenchmark: TButton
-    Left = 10
+  object ButtonBenchmarkList: TButton
+    Left = 8
     Height = 25
-    Top = 350
-    Width = 112
-    Caption = 'Benchmark'
-    OnClick = ButtonBenchmarkClick
+    Top = 352
+    Width = 128
+    Caption = 'Benchmark list'
+    OnClick = ButtonBenchmarkListClick
     TabOrder = 6
   end
@@ -79 +79 @@
     Height = 25
     Top = 163
-    Width = 113
+    Width = 129
     Caption = 'TListObject'
     OnClick = ButtonListObjectClick
     TabOrder = 7
   end
+  object ButtonBenchmarkDictionary: TButton
+    Left = 10
+    Height = 25
+    Top = 320
+    Width = 126
+    Caption = 'Benchmark dictionary'
+    OnClick = ButtonBenchmarkDictionaryClick
+    TabOrder = 8
+  end
 end