Changeset 327 for Generics/NativeGenerics/Demo/UMainForm.pas

Timestamp:

Feb 9, 2012, 8:46:05 AM (12 years ago)

Author:

chronos

Message:

• Modified: TGTree structure.

File:

• Generics/NativeGenerics/Demo/UMainForm.pas (modified) (2 diffs)

Generics/NativeGenerics/Demo/UMainForm.pas

@@ -763 +763 @@
 procedure TMainForm.TreeButtonClick(Sender: TObject);
 var
-  Tree: TGTree<string>;
+  //Tree: TGTree<string>;
   //Tree2: TGTree<string>;
   I: Integer;
 begin
-  {ListViewOutput.Clear;
+ (* ListViewOutput.Clear;
   LabelTestName.Caption := 'TGTree<string> test';
-  Tree := TGTree<Integer>.Create;
-  Tree2 := TGTree<Integer>.Create;
+  Tree := TGTree<string>.Create;
+  Tree2 := TGTree<string>.Create;
   with Tree do try
-(*    AddArray([10, 20, 30, 40]);
+    Tree.TopItem.Add('test');
+    AddArray([10, 20, 30, 40]);
     WriteOutput('AddArray([10, 20, 30, 40])', Implode(',', IntToStr));
     Clear;
@@ -796 +797 @@
     WriteOutput('InsertCount(0, 3)', Implode(',', IntToStr));
     Fill(0, 3, 9);
-    WriteOutput('Fill(0, 3, 9)', Implode(',', IntToStr));*)
+    WriteOutput('Fill(0, 3, 9)', Implode(',', IntToStr));
   finally
     Free;
     Tree2.Free;
-  end;}
+  end;   *)
 end;