Changeset 574 for Generics/TemplateGenerics/Demo/FormMain.pas

Timestamp:

Jun 25, 2024, 11:10:44 AM (3 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.

Location:

Generics/TemplateGenerics/Demo

Files:

• . (modified) (1 prop)
• FormMain.pas (moved) (moved from Generics/TemplateGenerics/Demo/UMainForm.pas ) (16 diffs)

Generics/TemplateGenerics/Demo

@@ -3 +3 @@
 heaptrclog.trc
 Demo
+backup

@@ -3 +3 @@
 heaptrclog.trc
 Demo
+backup

Generics/TemplateGenerics/Demo/FormMain.pas

@@ -1 @@
-unit UMainForm;
-
-{$mode delphi}{$H+}
+unit FormMain;
 
 interface
@@ -12 +10 @@
 type
 
-  { TMainForm }
-
-  TMainForm = class(TForm)
+  { TFormMain }
+
+  TFormMain = class(TForm)
     ButtonStreamByte: TButton;
     ButtonBenchmarkDictionary: TButton;
@@ -50 +48 @@
 
 var
-  MainForm: TMainForm;
+  FormMain: TFormMain;
+
 
 implementation
@@ -56 +55 @@
 {$R *.lfm}
 
-{ TMainForm }
-
-procedure TMainForm.FormCreate(Sender: TObject);
+{ TFormMain }
+
+procedure TFormMain.FormCreate(Sender: TObject);
 begin
   MeasureDuration := 100 * OneMillisecond;
 end;
 
-procedure TMainForm.ButtonIntegerListClick(Sender: TObject);
+procedure TFormMain.ButtonIntegerListClick(Sender: TObject);
 var
   List: TListInteger;
@@ -105 +104 @@
 end;
 
-procedure TMainForm.ButtonMatrixIntegerClick(Sender: TObject);
+procedure TFormMain.ButtonMatrixIntegerClick(Sender: TObject);
 var
   Matrix: TMatrixInteger;
@@ -129 +128 @@
 end;
 
-procedure TMainForm.ButtonStreamByteClick(Sender: TObject);
+procedure TFormMain.ButtonStreamByteClick(Sender: TObject);
 var
   Stream: TMemoryStreamByte;
@@ -171 +170 @@
 end;
 
-procedure TMainForm.ButtonListObjectClick(Sender: TObject);
+procedure TFormMain.ButtonListObjectClick(Sender: TObject);
 var
   List: TListObject;
@@ -196 +195 @@
 end;
 
-procedure TMainForm.ButtonQueueIntegerClick(Sender: TObject);
+procedure TFormMain.ButtonQueueIntegerClick(Sender: TObject);
 var
   Queue: TQueueInteger;
@@ -223 +222 @@
 end;
 
-procedure TMainForm.ButtonDictionaryStringClick(Sender: TObject);
+procedure TFormMain.ButtonDictionaryStringClick(Sender: TObject);
 var
   Dictionary: TDictionaryStringString;
@@ -251 +250 @@
 end;
 
-procedure TMainForm.ButtonCharListClick(Sender: TObject);
+procedure TFormMain.ButtonCharListClick(Sender: TObject);
 var
   List: TListChar;
@@ -283 +282 @@
 end;
 
-procedure TMainForm.ButtonBenchmarkListStringClick(Sender: TObject);
+procedure TFormMain.ButtonBenchmarkListStringClick(Sender: TObject);
 var
   List: TListString;
@@ -431 +430 @@
 end;
 
-procedure TMainForm.ButtonBenchmarkDictionaryClick(Sender: TObject);
+procedure TFormMain.ButtonBenchmarkDictionaryClick(Sender: TObject);
 var
   Dictionary: TDictionaryStringString;
@@ -526 +525 @@
 end;
 
-procedure TMainForm.ButtonBenchmarkListPointerClick(Sender: TObject);
+procedure TFormMain.ButtonBenchmarkListPointerClick(Sender: TObject);
 var
   List: TListPointer;
@@ -726 +725 @@
 end;
 
-procedure TMainForm.ButtonStringListClick(Sender: TObject);
+procedure TFormMain.ButtonStringListClick(Sender: TObject);
 var
   List: TListString;
@@ -753 +752 @@
 end;
 
-procedure TMainForm.FormDestroy(Sender: TObject);
-begin
-end;
-
-procedure TMainForm.UpdateButtonState(Enabled: Boolean);
+procedure TFormMain.FormDestroy(Sender: TObject);
+begin
+end;
+
+procedure TFormMain.UpdateButtonState(Enabled: Boolean);
 begin
   ButtonBenchmarkDictionary.Enabled := Enabled;
@@ -770 +769 @@
 end;
 
-procedure TMainForm.WriteOutput(Text1: string = ''; Text2: string = '');
+procedure TFormMain.WriteOutput(Text1: string = ''; Text2: string = '');
 var
   NewItem: TListItem;

@@ -3 +3 @@
 heaptrclog.trc
 Demo
+backup