как получить из полного пути, имя вайла и его расширение

← →
lena19 (2004-06-06 21:28) [0]

всем привет
как получить из полного пути, имя вайла и его расширение

← →
AndersoNRules (2004-06-06 21:29) [1]

ExtractFileName

← →
lena19 (2004-06-06 21:31) [2]

ок спасибо

← →
AlexG © (2004-06-06 21:31) [3]

Дополни > ExtractFileName F1, по вкусу, и добавь See also

← →
grom (2004-06-06 21:37) [4]

("c:\sys\command.com" -> "command.com")
-------------------------------
function MyExtractFileName(const Path: string): string;
var
i: integer;
begin
Result := "";
i := Length(Path);
while ((Path[i] <> "\") and (Path[i] <> "/")) and (i > 0) do
dec(i);
if i = 0 then Result := Path else
if i = Length(Path) then Result := "" else
Result := Copy(Path, i+1, Length(Path) - i);
end;

← →
Gero © (2004-06-06 22:03) [5]

> grom (06.06.04 21:37)

А я лучше могу написать:

function MyExtractFileName(const Path: string): string;
begin
Result := ExtractFileName(Path);
end;

> function MyExtractFileName(const Path: string): string;
> begin
> Result := ExtractFileName(Path);
> end;

function GeroExtractFileName(const Path: string): string;
begin
Result := ExtractFileName(Path);
end;

function GuAVExtractFileName(const Path: string): string;
begin
Result := GeroExtractFileName(Path);
end;

как получить из полного пути, имя вайла и его расширение Найти похожие ветки