Forum: Object-Pascal / Delphi-Language
Delphi
by hoika,
16. Apr 2010
Hallo,
if FindFirst(Directory+Mask,faAnyFile and not faDirectory, SR) = 0 then
Woher hast du denn das and not ??
Das wird per or zusammengefasst
Nimm das mal komplette raus und rpprüfe in der repeat until,
ob die jeweiliges "Datei" ein Verzeichnis ist.
Forum: Object-Pascal / Delphi-Language
Delphi
by hoika,
16. Apr 2010
Hallo,
der Code sieht OK aus.
Ausser
LastAccess: array of String
Warum die Leute sowas statt einer StringList nehmen, ist mir ein Rätsel.
Forum: Object-Pascal / Delphi-Language
Delphi
by hoika,
16. Apr 2010
Hallo,
Ist ja interessant, dass du das jetzt erst sagst ... ;)
Ist die Fehlermeldung geheim oder warum sagst du sie uns nicht ?
Steht die vielleicht irgendwo ein List.Free ?;
Forum: Object-Pascal / Delphi-Language
Delphi
by hoika,
16. Apr 2010
Hallo,
Breakpoint auf
List.Add(Directory+SR.Name+'#'+IntToStr(SR.FindData.nFileSizeHigh)+'*'
+IntToStr(SR.FindData.ftLastAccessTime.dwLowDateTime));
und Laufenlassen.
Forum: Object-Pascal / Delphi-Language
Delphi
by hoika,
16. Apr 2010
Hallo,
ui, da war jemand schneller und ich habs überlesen ;)
Heiko
Forum: Object-Pascal / Delphi-Language
Delphi
by hoika,
16. Apr 2010
Hallo,
ist ja hier egal ;)
Aber das hier könnte ein Problem sein.
Mask := '*.*';
if FindFirst(Directory+Mask
Ist Directory z.B. c:\temp kommt
Forum: Object-Pascal / Delphi-Language
Delphi
by hoika,
16. Apr 2010
Hallo,
var
List: TStringList;
begin
List:= TStringList.Create;
try
Forum: Object-Pascal / Delphi-Language
Delphi
by hoika,
15. Apr 2010
Hallo,
wo ist überhaupt das Problem ?
Du hast eine gefüllte Liste nach ScanDir(Directory); mit Dateinamen
und willst jetzt von jeder Datei das letzte Zugriffsdatum ?
Heiko