Changeset 6

Timestamp:

Sep 30, 2025, 1:13:00 PM (4 weeks ago)

Author:

chronos

Message:

• Modified: Present estimated CO2 emissions in separate table.

Location:

trunk

Files:

• Car.pas (modified) (10 diffs)
• FormMain.lfm (modified) (5 diffs)
• FormMain.pas (modified) (4 diffs)

trunk/Car.pas

@@ -97 +97 @@
     constructor Create;
     destructor Destroy; override;
+    procedure Clean;
     procedure LoadFromFile(FileName: string);
     procedure LoadFromStrings(Lines: TStrings);
@@ -132 +133 @@
     'g', 'g');
   DistanceUnits: array[TEngineType] of Integer = (1, 100, 100, 1, 100, 100);
+  // https://fdrive.cz/clanky/kolik-oxidu-uhliciteho-vypousti-vozidlo-do-ovzdusi-velke-srovnani-podle-pohonu-6874
+  EmissionPerUnit: array[TEngineType] of Double = (0, 3366, 3616, 0.411, 2.640, 1.660);
 
 function Explode(Separator: string; Data: string): TStringArray;
@@ -279 +282 @@
 function TRent.GetEmission: Double;
 begin
-  // https://www.autolexicon.net/cs/articles/vypocet-emisi-co2/
-  case Car.EngineType of
-    etPetrol: Result := GetFuel * 2390;
-    etDiesel: Result := GetFuel * 2640;
-    etLpg: Result := GetFuel * 1660;
-    etCng: Result := GetFuel * 2666;
-    etElectric: Result := GetFuel * 1-17;
-  end;
+  Result := GetFuel * EmissionPerUnit[Car.EngineType];
 end;
 
@@ -385 +381 @@
   FreeAndNil(Cars);
   inherited;
+end;
+
+procedure TSummary.Clean;
+begin
+  Rents.Count := 0;
+  Cars.Count := 0;
+  Companies.Count := 0;
 end;
 
@@ -439 +442 @@
   TableLineCellSeparator = '||';
 begin
+  Clean;
   for I := 0 to Lines.Count - 1 do begin
     Line := Lines[I];
@@ -561 +565 @@
   TotalPriceWithFuel: Double;
   TotalEmission: Double;
-  TotalFuel: array[TEngineType] of Double;
+  TotalEmissionByEngine: array[TEngineType] of Double;
+  TotalFuelByEngine: array[TEngineType] of Double;
   CarName: string;
   CompanyName: string;
@@ -583 +588 @@
   TotalPriceWithFuel := 0;
   TotalEmission := 0;
-  for E := Low(TEngineType) to High(TEngineType) do
-    TotalFuel[E] := 0;
+  for E := Low(TEngineType) to High(TEngineType) do begin
+    TotalFuelByEngine[E] := 0;
+    TotalEmissionByEngine[E] := 0;
+  end;
   for I := 0 to Rents.Count - 1 do
   with TRent(Rents[I]) do begin
@@ -591 +598 @@
     TotalPriceWithFuel := TotalPriceWithFuel + PriceWithFuel;
     TotalEmission := TotalEmission + GetEmission;
-    TotalFuel[Car.EngineType] := TotalFuel[Car.EngineType] + GetFuel;
+    TotalFuelByEngine[Car.EngineType] := TotalFuelByEngine[Car.EngineType] + GetFuel;
+    TotalEmissionByEngine[Car.EngineType] := TotalEmissionByEngine[Car.EngineType] + GetEmission;
 
     Year := YearOf(Time);
@@ -612 +620 @@
   AddLine('* Cena půjčení včetně paliva: ' + FloatToStr(TotalPriceWithFuel) + ' Kč');
   AddLine('* Vzdálenost: ' + FloatToStr(TotalDistance) + ' km');
-  for E := Succ(Low(TEngineType)) to High(TEngineType) do
-    AddLine('* Palivo ' + EngineTypeText[E] + ': ' + PrefixMultiplier.Add(TotalFuel[E], BasePrefixMultipliers, EngineTypeUnit[E]));
-  AddLine('* Emise CO2: ' + FloatToStr(TotalEmission / 1000) + ' Kg');
+  AddLine('* Emise CO2: ' + FloatToStr(Round(TotalEmission / 1000)) + ' Kg');
+  AddLine('* Modelů aut: ' + IntToStr(Cars.Count));
+  AddLine('* Půjčoven: ' + IntToStr(Companies.Count));
 
   AddLine;
@@ -628 +636 @@
       IntToStr(Companies.Count));
     if I < SummaryYears.Count - 1 then AddLine('|-');
+  end;
+  AddLine('|}');
+
+  AddLine;
+  AddLine('==Energie==');
+  AddLine('{| class="wikitable sortable"');
+  AddLine('! Druh !! Množství !! Emise koeficient [g/l] !! Emise CO2 [Kg]');
+  AddLine('|-');
+  for E := Succ(Low(TEngineType)) to High(TEngineType) do begin
+    AddLine('| ' + EngineTypeText[E] + ' || ' + PrefixMultiplier.Add(TotalFuelByEngine[E],
+      BasePrefixMultipliers, EngineTypeUnit[E]) + ' || ' + FloatToStr(EmissionPerUnit[E]) +
+      ' || ' + FloatToStr(Round(TotalEmissionByEngine[E] / 1000)));
+    if E < High(TEngineType) then AddLine('|-');
   end;
   AddLine('|}');

trunk/FormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 456
-  Height = 869
-  Top = 228
-  Width = 1128
+  Left = 433
+  Height = 812
+  Top = 288
+  Width = 1370
   Caption = 'Car rental summary'
-  ClientHeight = 869
-  ClientWidth = 1128
+  ClientHeight = 812
+  ClientWidth = 1370
   DesignTimePPI = 144
+  LCLVersion = '4.2.0.0'
+  WindowState = wsMaximized
   OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '3.4.0.0'
-  WindowState = wsMaximized
   object LabelSummary: TLabel
     Left = 16
@@ -34 +34 @@
     Height = 43
     Top = 12
-    Width = 968
+    Width = 1210
     Anchors = [akTop, akLeft, akRight]
     TabOrder = 0
@@ -41 +41 @@
   object PageControlSummary: TPageControl
     Left = 21
-    Height = 764
+    Height = 707
     Top = 104
-    Width = 1099
+    Width = 1341
     ActivePage = TabSheetSource
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -50 +50 @@
     object TabSheetSource: TTabSheet
       Caption = 'Source'
-      ClientHeight = 724
-      ClientWidth = 1089
+      ClientHeight = 667
+      ClientWidth = 1331
       object MemoSource: TMemo
         Left = 8
-        Height = 708
+        Height = 651
         Top = 8
-        Width = 1073
+        Width = 1315
         Align = alClient
         BorderSpacing.Around = 8
         ScrollBars = ssAutoBoth
         TabOrder = 0
+        OnChange = MemoSourceChange
       end
     end
     object TabSheetSummary: TTabSheet
       Caption = 'Summary'
-      ClientHeight = 724
-      ClientWidth = 1089
+      ClientHeight = 667
+      ClientWidth = 1331
       object MemoSummary: TMemo
         Left = 8
-        Height = 708
+        Height = 651
         Top = 8
-        Width = 1073
+        Width = 1315
         Align = alClient
         BorderSpacing.Around = 8
@@ -80 +81 @@
     object TabSheetLog: TTabSheet
       Caption = 'Log'
-      ClientHeight = 724
-      ClientWidth = 1089
+      ClientHeight = 667
+      ClientWidth = 1331
       object MemoLog: TMemo
         Left = 8
-        Height = 708
+        Height = 651
         Top = 8
-        Width = 1073
+        Width = 1315
         Align = alClient
         BorderSpacing.Around = 8

trunk/FormMain.pas

@@ -26 +26 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure MemoSourceChange(Sender: TObject);
   private
     procedure Log(Text: string);
+    procedure UpdateSummary;
   public
     Summary: TSummary;
@@ -34 +36 @@
 var
   FormMain: TFormMain;
+
 
 implementation
@@ -45 +48 @@
   if FileExists(EditSource.Text) then
     MemoSource.Lines.LoadFromFile(EditSource.Text);
-  Summary.OnLog := Log;
-  Summary.LoadFromStrings(MemoSource.Lines);
-  MemoSummary.Text := Summary.Print;
+  UpdateSummary;
   //PageControlSummary.TabIndex := 1;
+end;
+
+procedure TFormMain.MemoSourceChange(Sender: TObject);
+begin
+  UpdateSummary;
 end;
 
@@ -56 +62 @@
 end;
 
+procedure TFormMain.UpdateSummary;
+begin
+  Summary.LoadFromStrings(MemoSource.Lines);
+  MemoSummary.Text := Summary.Print;
+end;
+
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
   Summary := TSummary.Create;
+  Summary.OnLog := Log;
 end;