Changeset 10 for trunk/SpotPrice.pas

Timestamp:

Apr 15, 2026, 9:35:17 AM (2 weeks ago)

Author:

chronos

Message:

• Added: Show spot total price above zero for EANs.

File:

• trunk/SpotPrice.pas (modified) (7 diffs)

trunk/SpotPrice.pas

@@ -26 +26 @@
     procedure LoadSpotReport(FileName: string);
   public
+    procedure ClearInterval(IntervalFrom, IntervalTo: TDateTime);
     function GetBlock(var Text: string; StartText, EndText: string): string;
-    procedure LoadSpotPricesFromWeb(Date: TDate);
+    procedure LoadFromWebDate(Date: TDate);
+    procedure LoadFromWeb;
     procedure Import(Directory: string);
     procedure LoadFromXmlNode(Node: TDOMNode);
     procedure SaveToXmlNode(Node: TDOMNode);
-    function SearchByTime(Time: TDateTime): TSpotPrice;
+    function SearchByTime(Time: TDateTime): Integer;
   end;
 
@@ -62 +64 @@
 end;
 
-procedure TSpotPrices.LoadSpotPricesFromWeb(Date: TDate);
+procedure TSpotPrices.LoadFromWebDate(Date: TDate);
 var
   URL: string;
@@ -73 +75 @@
   Value: Double;
 begin
-  Clear;
+  ClearInterval(Date, Date + 1);
+
   URL := 'https://spotovaelektrina.cz/denni-ceny/' + DateToStr(Date, XmlFormatSettings);
   with TFPHttpClient.Create(nil) do
@@ -102 +105 @@
 end;
 
+procedure TSpotPrices.LoadFromWeb;
+var
+  I: Integer;
+begin
+  for I := 1 to 15 do
+    LoadFromWebDate(StrToDate(IntToStr(I) + '.4.2026'));
+
+  Sort(TComparer<TSpotPrice>.Construct(Comparer));
+end;
+
 function TSpotPrices.FileNameFilter(FileName: string): Boolean;
 begin
@@ -134 +147 @@
 end;
 
+procedure TSpotPrices.ClearInterval(IntervalFrom, IntervalTo: TDateTime);
+var
+  I: Integer;
+begin
+  for I := Count - 1 downto 0 do
+    if (Items[I].Time >= IntervalFrom) and (Items[I].Time < IntervalTo) then
+      Delete(I);
+end;
+
 procedure TSpotPrices.Import(Directory: string);
 var
@@ -178 +200 @@
 end;
 
-function TSpotPrices.SearchByTime(Time: TDateTime): TSpotPrice;
+function TSpotPrices.SearchByTime(Time: TDateTime): Integer;
 var
   I: Integer;
@@ -184 +206 @@
   I := 0;
   while (I < Count) and (Items[I].Time <> Time) do Inc(I);
-  if I < Count then Result := Items[I]
-    else Result := TSpotPrice.Create(0, 0);
+  if I < Count then Result := I
+    else Result := -1;
 end;