Dateinamen ohne Laufwerksbuchstaben |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
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;
begin
result:=Copy(FileName,4,Length(FileName));
end;
Ähnliche Seiten: