Changeset 75 for trunk/Compiler/SourceConvertor.pas

Timestamp:

Jun 4, 2024, 12:22:49 AM (5 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Modified: Updated Common package.

File:

• trunk/Compiler/SourceConvertor.pas (moved) (moved from trunk/Compiler/USourceConvertor.pas ) (5 diffs)

trunk/Compiler/SourceConvertor.pas

@@ -1 @@
-unit USourceConvertor;
-
-{$mode delphi}{$H+}
+unit SourceConvertor;
 
 interface
 
 uses
-  Classes, SysUtils, SpecializedList;
+  Classes, SysUtils, Generics.Collections;
 
 type
@@ -22 +20 @@
 
   TSourceText = class(TSource)
-    Code: TListString;
+    Code: TStringList;
     constructor Create;
     destructor Destroy; override;
@@ -28 +26 @@
 
   TSourceList = class
-    Items: TListObject; // TListObject<TSource>
+    Items: TObjectList<TSource>;
   end;
 
@@ -57 +55 @@
 procedure TConvertor.Convert(Input, Output: TSourceList);
 begin
-
 end;
 
@@ -74 +71 @@
 constructor TSourceText.Create;
 begin
-  Code := TListString.Create;
+  Code := TStringList.Create;
 end;
 
 destructor TSourceText.Destroy;
 begin
-  Code.Free;
-  inherited Destroy;
+  FreeAndNil(Code);
+  inherited;
 end;