From 3721fafc7478dea3168a1e15960f4721d3abf563 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 20 Feb 2018 10:38:22 +0100
Subject: tools.pas: tDateienMitDaten.finde zerstört nun beim Einfügen die
 Sortierung nicht mehr
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 tools.pas | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

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;
-- 
cgit v1.2.3-54-g00ecf