diff options
| -rw-r--r-- | dateibeziehungen.pas | 4 | ||||
| -rw-r--r-- | 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); @@ -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; |