Zitat von
schrimm:
Danke erstmal für die Antwirt, aber der kennt die wesentl. Teile nicht:
FindFirst und srDirs
muss man da unter uses noch was mit rein schreiben?
[Edit] Wegen dem Findfirst, da fehlte ein Simikolon, aber er kennt srDirs und Path nicht
Path müsstest du einfach oben im Kopf der Prozedur übergeben etwa so:
procedure bla(path: string);
"srDirs" sieht nach Schreibfehler aus, denn als Variable ist ja nur "srDir" angegeben,
also einfach oben unter Vars in "srDirs : TSearchRec" umändern.
Gruß
Pfoto