Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
16. Apr 2010
Das liegt am übergebenen Pfad!
Gruß
K-H
Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
16. Apr 2010
Ich hab mal ein wenig gespielt.
Hoikas Frage nach dem Pfad war wohl richtig, da wenn der Pfad nicht vorhanden ist, ist auch die Liste leer!
if DirectoryExists(path) then
GetAllFilesInDirectorys(path, ll,true)
else
showmessage('falsche Pfadangabe:'+path);
Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
16. Apr 2010
@hoika
das seltsame
if Directory <> '\' then
begin
Directory := Directory+'\';
end;
Directory := Directory+'\';
ScanDir(Directory);
Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
16. Apr 2010
Versuch es mal mit:
class procedure TDataWork.GetAllFilesInDirectorys(Directory: string;var List: TStrings; ClearList: Boolean);
Gruß
K-H
Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
16. Apr 2010
Für "Filesize" bietet sich InttoStr an! und für "DateTime" FileDatetoDateTime.
Und was den Ersteller/Besitzer angeht dann such mal unter dem Stichwort Active Directory oder ADS.
Gruß
K-H
P.S.
Wenn Du Deinen Sourcecode als Staatsgeheimnis behandelst, ist es recht schwer Dir vernünftig zu helfen.