Changeset 5 for trunk/Car.pas

Timestamp:

Jul 8, 2024, 11:31:59 PM (5 months ago)

Author:

chronos

Message:

• Added: Show source tab with source text which is automatically loaded on start and saved on close.

File:

• trunk/Car.pas (modified) (4 diffs)

trunk/Car.pas

@@ -98 +98 @@
     destructor Destroy; override;
     procedure LoadFromFile(FileName: string);
+    procedure LoadFromStrings(Lines: TStrings);
     function Print: string;
     property OnLog: TLogEvent read FOnLog write FOnLog;
@@ -388 +389 @@
 procedure TSummary.LoadFromFile(FileName: string);
 var
-  I: Integer;
   Lines: TStringList;
+begin
+  Lines := TStringList.Create;
+  try
+    Lines.LoadFromFile(FileName);
+    LoadFromStrings(Lines);
+  finally
+    Lines.Free;
+  end;
+end;
+
+procedure TSummary.LoadFromStrings(Lines: TStrings);
+var
+  I: Integer;
   Line: string;
   CarComparer: TCarComparer;
@@ -426 +439 @@
   TableLineCellSeparator = '||';
 begin
-  Lines := TStringList.Create;
-  Lines.LoadFromFile(FileName);
   for I := 0 to Lines.Count - 1 do begin
     Line := Lines[I];
@@ -539 +550 @@
   SaveAndFreeCar(CarName, EngineType, CompanyName, Distance, Odometer, Price,
     PriceWithFuel, RentTime, Consumption);
-  Lines.Free;
   CarComparer := TCarComparer.Create;
   Cars.Sort(CarComparer);