Changeset 12 for trunk/Ean.pas

Timestamp:

Apr 17, 2026, 2:31:42 PM (13 days ago)

Author:

chronos

Message:

• Added: Min/max interval position navigation buttons.
• Modified: Remember last interval position.

File:

• trunk/Ean.pas (modified) (5 diffs)

trunk/Ean.pas

@@ -58 +58 @@
 
   TEans = class(TObjectList<TEan>)
+    function GetMaxTime: TDateTime;
+    function GetMinTime: TDateTime;
     function SearchByNumber(Number: string): TEan;
     function SearchByOwnerKind(Owner: string; Kind: TEanKind): TEan;
@@ -75 +77 @@
   EanValueName = 'EanValue';
   EanValuesName = 'EanValues';
+  FifteenMinute = 15 * OneMinute;
 
 
@@ -180 +183 @@
   TotalIn := GetTotalIn(TimeFrom, TimeTo);
   TotalOut := GetTotalOut(TimeFrom, TimeTo);
-  if TotalIn <> 0 then Result := TotalIn - TotalOut
-    else Result := 0;
+  Result := TotalIn - TotalOut;
 end;
 
@@ -187 +189 @@
 var
   TotalIn: Double;
+  TotalOut: Double;
 begin
   TotalIn := GetTotalIn(TimeFrom, TimeTo);
-  if TotalIn <> 0 then Result := (1 - GetTotalOut(TimeFrom, TimeTo) / TotalIn) * 100
-    else Result := 0;
+  TotalOut := GetTotalOut(TimeFrom, TimeTo);
+  Result := (1 - TotalOut / TotalIn) * 100;
 end;
 
@@ -286 +289 @@
 
 { TEans }
+
+function TEans.GetMaxTime: TDateTime;
+var
+  I: Integer;
+  Found: Boolean;
+begin
+  Found := False;
+  for I := 0 to Count - 1 do
+  with Items[I] do
+    if Values.Count > 0 then begin
+      if not Found then begin
+        Result := Values[Values.Count - 1].Time;
+        Found := True;
+      end
+      else if Values[Values.Count - 1].Time > Result then begin
+        Result := Values[Values.Count - 1].Time;
+      end;
+    end;
+  if not Found then Result := Now;
+end;
+
+function TEans.GetMinTime: TDateTime;
+var
+  I: Integer;
+  Found: Boolean;
+begin
+  Found := False;
+  for I := 0 to Count - 1 do
+  with Items[I] do
+    if Values.Count > 0 then begin
+      if not Found then begin
+        Result := Values[0].Time;
+        Found := True;
+      end
+      else if Values[0].Time < Result then begin
+        Result := Values[0].Time;
+      end;
+    end;
+  if not Found then Result := Now;
+end;
 
 function TEans.SearchByNumber(Number: string): TEan;