summaryrefslogtreecommitdiff
path: root/tools.pas
diff options
context:
space:
mode:
Diffstat (limited to 'tools.pas')
-rw-r--r--tools.pas11
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;