1 files changed, 26 insertions, 0 deletions
diff --git a/tools.pas b/tools.pas
index 7c7f96d..8797441 100644
--- a/tools.pas
+++ b/tools.pas
@@ -33,6 +33,8 @@ type
     function toString: string; override;
     procedure append(dmd: tDateienMitDaten);
     function toMyStringList: tMyStringList;
+    function finde(name: string; wirdAktualitaet: tAktualitaet = aNichtVorhanden): tDateiMitDatum; overload; inline;
+    function finde(name: string; out istNeu: boolean; wirdAktualitaet: tAktualitaet = aNichtVorhanden): tDateiMitDatum; overload; inline;
   end;
 
 function min(a1,a2: tAktualitaet): tAktualitaet; inline; overload;
@@ -135,6 +137,30 @@ begin
     result.add(items[i].name);
 end;
 
+function tDateienMitDaten.finde(name: string; wirdAktualitaet: tAktualitaet = aNichtVorhanden): tDateiMitDatum;
+var
+  dummy: boolean;
+begin
+  result:=finde(name,dummy,wirdAktualitaet);
+end;
+
+function tDateienMitDaten.finde(name: string; out istNeu: boolean; wirdAktualitaet: tAktualitaet = aNichtVorhanden): tDateiMitDatum;
+var
+  i: longint;
+begin
+  istNeu:=false;
+  for i:=0 to count-1 do
+    if items[i].name=name then begin
+      result:=items[i];
+      exit;
+    end;
+  add(tDateiMitDatum.create);
+  istNeu:=true;
+  result:=last;
+  last.name:=name;
+  last.aktuell:=wirdAktualitaet;
+end;
+
 // allgemeine Funktionen *******************************************************
 
 function min(a1,a2: tAktualitaet): tAktualitaet;