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

Timestamp:

Oct 28, 2010, 9:44:09 PM (14 years ago)

Author:

george

Message:

• Added: Specialized class TListChar aka TString.

File:

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

Generics/TemplateGenerics/Demo/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, ListInteger, ListString, DictionaryString, QueueInteger;
+  ComCtrls, ListInteger, ListString, DictionaryString, QueueInteger, ListChar;
 
 type
@@ -14 +14 @@
 
   TMainForm = class(TForm)
+    ButtonCharList: TButton;
     ButtonQueueInteger: TButton;
     ButtonDictionaryString: TButton;
@@ -19 +20 @@
     ButtonStringList: TButton;
     MemoOutput: TMemo;
+    procedure ButtonCharListClick(Sender: TObject);
     procedure ButtonDictionaryStringClick(Sender: TObject);
     procedure ButtonIntegerListClick(Sender: TObject);
@@ -123 +125 @@
 end;
 
+function CharToStr(Value: Char): string;
+begin
+  Result := Value;
+end;
+
+procedure TMainForm.ButtonCharListClick(Sender: TObject);
+var
+  List: TListChar;
+begin
+  MemoOutput.Clear;
+  WriteLn('TListChar test');
+  List := TListChar.Create;
+  with List do try
+    AddArray([' ', ' ', 'A', 'b', 'c', 'd', ' ']);
+    WriteLn('Implode: ''' + Implode('', CharToStr) + '''');
+    WriteLn('Implode: ' + Implode('', CharToStr));
+    WriteLn('Reverse');
+    Reverse;
+    WriteLn('Implode: ''' + Implode('', CharToStr) + '''');
+    WriteLn('TrimLeft');
+    TrimLeft;
+    WriteLn('Implode: ''' + Implode('', CharToStr) + '''');
+    WriteLn('TrimRight');
+    TrimRight;
+    WriteLn('Implode: ''' + Implode('', CharToStr) + '''');
+    WriteLn('UpperCase');
+    UpperCase;
+    WriteLn('Implode: ''' + Implode('', CharToStr) + '''');
+  finally
+    Free;
+  end;
+end;
+
 function StrToStr(Value: string): string;
 begin