Home » Tipps & Tricks » Dateien/Verzeichnisse » Dateieigenschaften » Dateinamen ohne Laufwerksbuchstaben

Dateinamen ohne Laufwerksbuchstaben

function ExtractDirOnly(Filename: string): string;
var Temp ,Temp2 : string;
    i: integer;
begin
  Temp2 := '';
  Temp  := Filename;
  for i := 4 to Length(Temp) do
    Temp2 := Temp2 + Temp[i];
  result := Temp2;
end;

oder

function ExtractDirOnly(Filename: string): string;
begin
  result:=Copy(FileName,4,Length(FileName));
end;