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

Timestamp:

Jan 1, 2011, 1:34:29 AM (14 years ago)

Author:

george

Message:

• Added: Testing unit GenericMatric.
• Modified: Expand and Contract methods replaced by method SetCapacityOptimized. Correction to SetCount method and added some bounds checking.

File:

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

Generics/TemplateGenerics/Demo/UMainForm.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   ComCtrls, SpecializedList, SpecializedDictionary, SpecializedQueue,
-  DateUtils, SpecializedObjectList;
+  DateUtils;
 
 type
@@ -36 +36 @@
   private
   public
-    procedure WriteLn(Text: string);
+    Bitmap: TBitmap;
+    procedure WriteLn(Text: string = '');
   end;
 
@@ -61 +62 @@
   List := TListInteger.Create;
   with List do try
+    WriteLn('AddArray([10, 20, 30, 40])');
     AddArray([10, 20, 30, 40]);
     WriteLn('Implode: ' + Implode(',', IntToStr));
@@ -74 +76 @@
     WriteLn('Last: ' + IntToStr(Last));
     MoveItems(3, 2, 3);
+    WriteLn('Implode: ' + Implode(',', IntToStr));
+    WriteLn('Insert(5, 11)');
+    Insert(5, 11);
     WriteLn('Implode: ' + Implode(',', IntToStr));
   finally
@@ -275 +280 @@
   try
     List2 := TList.Create;
+    WriteLn;
     WriteLn('Test TList...');
     StartTime := Now;
@@ -395 +401 @@
     Dictionary2 := TStringList.Create;
     Dictionary2.NameValueSeparator := '|';
+    WriteLn;
     WriteLn('TStringList...');
     I := 0;
@@ -468 +475 @@
 end;
 
-procedure TMainForm.WriteLn(Text: string);
+procedure TMainForm.WriteLn(Text: string = '');
 begin
   MemoOutput.Lines.Add(Text);