diff options
author | Erich Eckner <git@eckner.net> | 2018-02-19 13:18:03 +0100 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2018-02-19 13:18:03 +0100 |
commit | 145f900d1a2c3ce03eb1b029c370d6c9f1588e64 (patch) | |
tree | e6e14987a609f52259bc70e0a7e760734109f27c /tools.pas | |
parent | 8aa1071e60198a6d2f3a7493387f114dd824ef3a (diff) | |
download | Make-145f900d1a2c3ce03eb1b029c370d6c9f1588e64.tar.xz |
tDateiMitDatum.create braucht nun Name und aktuell
Diffstat (limited to 'tools.pas')
-rw-r--r-- | tools.pas | 16 |
1 files changed, 15 insertions, 1 deletions
@@ -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; |