Oh Man habe den code versucht anzupassen aber bekomme immer wieder nen
access violation error
Delphi-Quellcode:
procedure TForm1.ListDirectory(path:string;stringlist: Tstrings);
var
SR: TSearchRec;
i:integer;
begin
i:=length(path);
if(path[i]<>'\')then path:=path + '\';
if FindFirst(path + '*.*', faAnyFile, SR) = 0 then try
repeat
if ((faDirectory) = faDirectory) and
(SR.Name <> '.') and (SR.Name <> '..') then
begin;
stringlist.Add(path + SR.Name);
ListDirectory(path + SR.Name + '\',stringlist);
end;
until FindNext(SR) <> 0;
finally
FindClose(SR);
end;
end;
wenn ich ihn hiermit aufrufe
ListDirectory(FolderPath,AllFolders);
kann das daran liegen das man nicht prozeduren übergreifen variabeln verararbeiten kann und mein code dies versuch? des weiteren wenn ich dieser pocedure de untersten folder gebe bekomme ich kein error...
weiß einer rat von euch profis?
Am liebste hätte ich das ganze mit einer funktion gelöst aber da die sich ja immer wieder selber aufruft weiß ich nicht wie das mit dem result gehen soll... Fragen über fragen