diff options
-rw-r--r-- | tools.pas | 11 |
1 files changed, 10 insertions, 1 deletions
@@ -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; |