Changeset 6 for trunk/Car.pas

Timestamp:

Sep 30, 2025, 1:13:00 PM (7 days ago)

Author:

chronos

Message:

• Modified: Present estimated CO2 emissions in separate table.

File:

• trunk/Car.pas (modified) (10 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('|}');