tDateiMitDatum.create braucht nun Name und aktuell

2 files changed, 16 insertions, 4 deletions

diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index 55fe2ea..f64c1c0 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -969,9 +969,7 @@ begin
       end
       else begin
         inc(result);
-        _dats.add(tDateiMitDatum.create);
-        _dats.last.name:=extractFilePath(wo)+sR.name;
-        _dats.last.aktuell:=aVeraltet;
+        _dats.add(tDateiMitDatum.create(extractFilePath(wo)+sR.name,aVeraltet));
       end;
     end;
     err:=findNext(sR);
diff --git a/tools.pas b/tools.pas
index d58d6eb..4f749d9 100644
--- a/tools.pas
+++ b/tools.pas
@@ -16,8 +16,13 @@ type
     inhalt: tMyStringListBArray;
   end;
   tDateiMitDatum = class
-    name:    ansiString;
+  private
+    _name:    ansiString;
+  public
     aktuell: tAktualitaet;
+    property name: ansiString
+      read _name;
+    constructor create(nam: ansiString; ak: tAktualitaet);
   end;
   tDateienMitDaten = class(tFPList)
     istSortiert: boolean;
@@ -64,6 +69,15 @@ implementation
 uses
   lowlevelunit, math;
 
+// tDateiMitDatum **************************************************************
+
+constructor tDateiMitDatum.create(nam: ansiString; ak: tAktualitaet);
+begin
+  inherited create;
+  _name:=nam;
+  aktuell:=ak;
+end;
+
 // tDateienMitDaten ************************************************************
 
 constructor tDateienMitDaten.create;