1 files changed, 15 insertions, 1 deletions
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;