Changeset 8 for trunk/EdcProject.pas

Timestamp:

Apr 13, 2026, 11:12:39 PM (2 weeks ago)

Author:

chronos

Message:

• Fixed: Data tab populating and refreshing.
• Fixed: Used currency as decimal type for measured values instead inaccurate double type.

File:

• trunk/EdcProject.pas (modified) (2 diffs)

trunk/EdcProject.pas

@@ -147 +147 @@
   TimeFrom: TDateTime;
   TimeTo: TDateTime;
-  CellValueIn: Double;
-  CellValueOut: Double;
+  CellValueIn: Currency;
+  CellValueOut: Currency;
   Ean: TEan;
   EanKind: TEanKind;
   Number: string;
+  A: Currency;
 begin
   CSVDoc := TCSVDocument.Create;
@@ -186 +187 @@
 
         CellValueIn := 0;
-        if TryStrToFloat(CSVDoc.Cells[3 + C * 2, R], CellValueIn) then begin
+        if TryStrToCurr(CSVDoc.Cells[3 + C * 2, R], CellValueIn) then begin
           if EanKind = ekConsumption then CellValueIn := -CellValueIn;
         end;
 
         CellValueOut := 0;
-        if TryStrToFloat(CSVDoc.Cells[3 + C * 2 + 1, R], CellValueOut) then begin
+        if TryStrToCurr(CSVDoc.Cells[3 + C * 2 + 1, R], CellValueOut) then begin
           if EanKind = ekConsumption then CellValueOut := -CellValueOut;
         end;