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

Timestamp:

Aug 23, 2011, 10:04:27 AM (13 years ago)

Author:

george

Message:

• Added: Test of method EqualTo in demo for TListInteger.

File:

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

Generics/TemplateGenerics/Demo/UMainForm.pas

@@ -65 +65 @@
 var
   List: TListInteger;
+  List2: TListInteger;
   I: Integer;
 begin
@@ -70 +71 @@
   LabelTestName.Caption := 'TListInteger test';
   List := TListInteger.Create;
+  List2 := TListInteger.Create;
   with List do try
     AddArray([10, 20, 30, 40]);
@@ -86 +88 @@
     Insert(5, 11);
     WriteOutput('Insert(5, 11)', Implode(',', IntToStr));
+    DeleteItems(0, 10);
+    WriteOutput('Delete(0, 10)', Implode(',', IntToStr));
+    List2.SetArray([1, 0]);
+    WriteOutput('EqualTo([6, 11])', BoolToStr(EqualTo(List2)));
+    List2.SetArray([2, 0]);
+    WriteOutput('EqualTo([7, 11])', BoolToStr(EqualTo(List2)));
   finally
     Free;
+    List2.Free;
   end;
 end;