From 145f900d1a2c3ce03eb1b029c370d6c9f1588e64 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Mon, 19 Feb 2018 13:18:03 +0100
Subject: tDateiMitDatum.create braucht nun Name und aktuell

---
 dateibeziehungen.pas |  4 +---
 tools.pas            | 16 +++++++++++++++-
 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;
-- 
cgit v1.2.3-70-g09d2