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

Timestamp:

Feb 8, 2012, 9:47:54 AM (13 years ago)

Author:

chronos

Message:

• Added: TGMemoryStream implementation.
• Added: Additional methods to TGList.

File:

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

Generics/NativeGenerics/Demo/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, GenericList, GenericDictionary, GenericQueue,
+  ComCtrls, GenericList, GenericDictionary, GenericQueue, GenericStream,
   DateUtils, SpecializedList;
 
@@ -162 +162 @@
 var
   Queue: TGQueue<Integer>;
-  I: Integer;
 begin
   ListViewOutput.Clear;
@@ -183 +182 @@
 procedure TMainForm.ButtonStreamByteClick(Sender: TObject);
 var
-  Stream: TMemoryStreamByte;
+  Stream: TGMemoryStream<Byte>;
   I: Integer;
   ByteArray: array of Byte;
@@ -190 +189 @@
   ListViewOutput.Clear;
   LabelTestName.Caption := 'TStreamByte test';
-  Stream := TMemoryStreamByte.Create;
+  Stream := TGMemoryStream<Byte>.Create;
   with Stream do try
     WriteOutput('Size := ', IntToStr(Stream.Size));