Gibt Verzeichnis zurück
Delphi-Quellcode:
function Verzeichnis(Filename:String):String;
var
i :integer;
begin
for i := length(Filename) downto 0 do
begin
if Filename[i] = '\' then
break;
end;
Result := copy(Filename,1,i);
end;
Gibt Dateinamen zurück (Ext := true --> Mit Extension)
Delphi-Quellcode:
function Dateiname(Filename:String; Ext:Boolean):String;
var
i : integer;
datei:string;
begin
if Ext = true then
begin
for i := length(Filename) downto 0 do
begin
if Filename[i] = '\' then
break;
result := copy(Filename,i,length(Filename));
end;
end else
if Ext = false then
begin
for i := length(Filename) downto 0 do
begin
if Filename[i] = '\' then
break;
datei := copy(Filename,i,length(Filename));
Result := copy(datei,1,pos('.',datei)-1);
end;
end;
end;
oder mach doch mit dem Filename ne DownTo schleife bist nen Punkt findest und dann weißt du doch wo die extension anfängt