Forum: Programmieren allgemein
by Master_BB,
17. Jul 2004
hm buildfilename hatte bei mir noch nie fehler gemacht
function BuildFileName(ADir, AFileName : string) : string;
begin
if ADir <> '\' then
ADir := ADir + '\';
if AFileName = '\' then
Delete(AFileName,1,1);
Forum: Programmieren allgemein
by Master_BB,
17. Jul 2004
das problem bleibt dennoch
und zwar füllt er Result nicht wenn das gesuchte Verzeichnis ein unterverzeichnis ist.
in der testausgabe gibt es es aus aber es wird nicht in result gespeichert
Forum: Programmieren allgemein
by Master_BB,
17. Jul 2004
ob da nun while oder if steht ist suppe
while benutzte ich da das dann kürzer ist hier mit if
wo soll ich die zeile nocheinmal reinbauen?
function FindPath(ToBeFound, Path : string) : string;
var
ASearchRec : TSearchRec;
begin
Forum: Programmieren allgemein
by Master_BB,
17. Jul 2004
Hy Leutz,
hab ein Problem mit meinem Verzeichnissuch algorithmus auf Findfirst basierend.
Und zwar findet er nur die Verzeichnisse unter C:\ wen ich ihm als ausgangspfad c:\ gebe
und nicht die unterordner.
Wenn ich mir alles was er durchsucht ausgeben lasse sehe ich das er alle unterordner findet
jedoch gibt er mir als Result nicht den den er gefunden hat.
Hier der Code