Zitat von
Klaus01:
Hallo Emil,
wie es ausschaut, wirst Du wohl nicht viel anderes
übrigbleiben als Dir Dein eigenes ExtractFilePath
zu schreiben.
Die Routinen könnten in etwa so aussehen:
Delphi-Quellcode:
function extractFileName(s:
string):
String;
var
i: Integer;
begin
i:= length(s);
while (i > 0)
and (s[i] <> '
\')
do
begin
dec(i);
end;
result := copy(s,i+1,length(s)-i+1);
end;
function extractFilePath(s:
string):
String;
var
i: Integer;
begin
i:= length(s);
while (i > 0)
and (s[i] <> '
\')
do
begin
dec(i);
end;
result := copy(s,1,i-1);
end;
Kann man sicherlich noch eleganter machen ...
Grüße
Klaus
Danke werd mal schaun ob es hilft.
gruss Emil