Стринг

[UnD)eaD)Snake]

Есть стринг "D:\..\..\.\proga.exe". Из него надо получить только "proga.exe" ?
proga.exe - может быть любым именем

[SkyM@n]

 
var
fullFileName : string;
 
begin
// Установка полного имени файла с диском и путем
fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';
 
// Показ составляющих частей этого полного имени
ShowMessage('Диск       = '+ExtractFileDrive (fullFileName));
ShowMessage('Каталог    = '+ExtractFileDir   (fullFileName));
ShowMessage('Путь       = '+ExtractFilePath  (fullFileName));
ShowMessage('Имя        = '+ExtractFileName  (fullFileName));
ShowMessage('Расширение = '+ExtractFileExt   (fullFileName));
end;

Результат:

Диск = C:
Каталог = C:\Program Files\Borland\Delphi7\Projects
Путь = C:\Program Files\Borland\Delphi7\Projects\
Имя = Unit1.dcu
Расширение = .dcu

[mihali4]

Или, если рассматривать просто как стринг, из которого нужно выделить последнюю подстроку (считая "\" разделителем), то:

var mystr,tmp: string;
     i: integer;
begin
tmp:='';
mystr:='D:\...\...\...\some.exe';
for i:=Lenght(mystr) downto 1 do
if mystr[i]<>'\' then
tmp:=mystr[i]+tmp else
break;
end;

В tmp будет "хвост" анализируемой строки.

[UnD)eaD)Snake]

спасибо .

[GAGARIN-NEW]

О ! только хотел спросить как это сделать как вот оно =) уже готово =) Спасибо SkyM@n

[SERG1980]

ExtractFileName(const FileName: string): string — выделяет имя файла, отбрасывая путь к нему.