tools.pas: tDateienMitDaten.finde zerstört nun beim Einfügen die Sortierung nicht mehr

1 files changed, 10 insertions, 1 deletions

diff --git a/tools.pas b/tools.pas
index 8873cb5..3078e43 100644
--- a/tools.pas
+++ b/tools.pas
@@ -253,7 +253,8 @@ end;
 
 function tDateienMitDaten.finde(name: string; out istNeu: boolean; wirdAktualitaet: tAktualitaet = aNichtVorhanden): tDateiMitDatum;
 var
-  i: longint;
+  i,j:         longint;
+  warSortiert: boolean;
 begin
   i:=findeIndex(name);
   if (i>=0) and (i<count) and (sItems[i].name = name) then begin
@@ -261,7 +262,15 @@ begin
     istNeu:=false;
     exit;
   end;
+  warSortiert:=istSortiert;
   add(tDateiMitDatum.create(name,wirdAktualitaet));
+  if warSortiert then begin
+    setLength(sortiert,length(sortiert)+1);
+    for j:=length(sortiert)-1 downto i+1 do
+      sortiert[j]:=sortiert[j-1];
+    sortiert[i]:=count-1;
+    istSortiert:=true;
+  end;
   istNeu:=true;
   result:=tDateiMitDatum(last);
 end;