Rekursives durchsuchen und Letzten Dateizugriff auslesen

[DeddyH]

Du musst die Liste auch erst einmal erzeugen (siehe Heikos Code).

[AnyKey]

Habe ich, hab ich oben ergänzt, hatte ich nur vergessen zu posten :P

[DeddyH]

Und wo wird "Pfad" gesetzt?

[AnyKey]

Pfad kommt aus einer Datenbank, der Pfad steht danach auch in der Variabel drin...

[DeddyH]

Dann ändere mal den "Hauptteil" der Methode.

Delphi-Quellcode:

begin
  List.BeginUpdate;
  try
    if ClearList then
    begin
      List.Clear;
    end;
    Directory := trim(Directory);
    if Directory = '' then
    begin
      Exit;
    end;
    Directory := IncludeTrailingPathDelimiter(Directory);
    ScanDir(Directory);
  finally
    List.EndUpdate;
  end;
end;

[p80286]

Versuch es mal mit:

Delphi-Quellcode:

class procedure TDataWork.GetAllFilesInDirectorys(Directory: string;var List: TStrings; ClearList: Boolean);

Gruß
K-H

[DeddyH]

Wozu das? Objektinstanzen werden im Normalfall nicht als var übergeben.

[hoika]

Hallo,

ist ja hier egal ;)

Aber das hier könnte ein Problem sein.

Delphi-Quellcode:

Mask := '*.*';
if FindFirst(Directory+Mask

Ist Directory z.B. c:\temp kommt

c:\temp*.* raus.

Es würde der Backslash fehlen

if FindFirst(Directory+'\'+Mask[/delphi]

Wenn es das ist, du hast 2 Stellen davon im Code.

Das bekommt man aber per F5, F7, F8 leicht raus ...


Heiko

[DeddyH]

Siehe #25 ;)

[hoika]

Hallo,

ui, da war jemand schneller und ich habs überlesen ;)


Heiko