Changeset 90 for trunk/Packages/TemplateGenerics/Demo/UMainForm.pas

Timestamp:

Sep 7, 2012, 6:45:53 AM (12 years ago)

Author:

chronos

Message:

• Upraveno: Aktualizace balíčku TemplateGenerics na novější verzi. Se starou nešel projekt správně přeložit.

Location:

trunk/Packages/TemplateGenerics/Demo

Files:

• . (modified) (1 prop)
• UMainForm.pas (modified) (6 diffs)

trunk/Packages/TemplateGenerics/Demo/UMainForm.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   ComCtrls, SpecializedList, SpecializedDictionary, SpecializedQueue,
-  DateUtils, SpecializedMatrix;
+  DateUtils, SpecializedMatrix, SpecializedStream;
 
 type
@@ -15 +15 @@
 
   TMainForm = class(TForm)
+    ButtonStreamByte: TButton;
     ButtonBenchmarkDictionary: TButton;
     ButtonBenchmarkListPointer: TButton;
@@ -38 +39 @@
     procedure ButtonQueueIntegerClick(Sender: TObject);
     procedure ButtonStringListClick(Sender: TObject);
+    procedure ButtonStreamByteClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
-  private
   public
     MeasureDuration: TDateTime;
@@ -94 +95 @@
     List2.SetArray([2, 0]);
     WriteOutput('EqualTo([7, 11])', BoolToStr(EqualTo(List2)));
+    InsertCount(0, 3);
+    WriteOutput('InsertCount(0, 3)', Implode(',', IntToStr));
+    Fill(0, 3, 9);
+    WriteOutput('Fill(0, 3, 9)', Implode(',', IntToStr));
   finally
     Free;
@@ -119 +124 @@
     WriteOutput('Clear', '[' + Implode('; ', ', ', IntToStr) + ']');
     WriteOutput('Count [Y, X]', IntToStr(Count.Y) + ', ' + IntToStr(Count.X));
+  finally
+    Free;
+  end;
+end;
+
+procedure TMainForm.ButtonStreamByteClick(Sender: TObject);
+var
+  Stream: TMemoryStreamByte;
+  I: Integer;
+  ByteArray: array of Byte;
+  ByteArrayText: string;
+begin
+  ListViewOutput.Clear;
+  LabelTestName.Caption := 'TStreamByte test';
+  Stream := TMemoryStreamByte.Create;
+  with Stream do try
+    WriteOutput('Size := ', IntToStr(Stream.Size));
+    Write(1);
+    WriteOutput('Write(1)', '');
+    WriteOutput('Size, Position', IntToStr(Stream.Size) + ', ' + IntToStr(Stream.Position));
+    WriteArray([2, 3, 4]);
+    WriteOutput('WriteArray([2, 3, 4])', '');
+    WriteOutput('Size, Position', IntToStr(Stream.Size) + ', ' + IntToStr(Stream.Position));
+    Position := 1;
+    WriteOutput('Position := 1', '');
+    WriteOutput('Size, Position', IntToStr(Stream.Size) + ', ' + IntToStr(Stream.Position));
+    WriteOutput('Read', IntToStr(Read));
+    WriteOutput('Size, Position', IntToStr(Stream.Size) + ', ' + IntToStr(Stream.Position));
+    ByteArray := ReadArray(2);
+    ByteArrayText := '[';
+    for I := 0 to Length(ByteArray) - 1 do begin
+      ByteArrayText := ByteArrayText + IntToStr(ByteArray[I]);
+      if I < Length(ByteArray) - 1 then ByteArrayText := ByteArrayText + ', ';
+    end;
+    ByteArrayText := ByteArrayText + ']';
+    WriteOutput('ReadArray', ByteArrayText);
+    WriteOutput('Size, Position', IntToStr(Stream.Size) + ', ' + IntToStr(Stream.Position));
   finally
     Free;
@@ -702 +744 @@
     MoveItems(2, 3, 3);
     WriteOutput('Implode', Implode(',', StrToStr));
+    InsertCount(0, 3);
+    WriteOutput('InsertCount(0, 3)', Implode(',', StrToStr));
+    Fill(0, 3, 'Zero');
+    WriteOutput('Fill(0, 3, ''Zero'')', Implode(',', StrToStr));
   finally
     Free;