Символы и строки

[quade1992]

Дана строка, содержащая полное имя файла, то есть имя диска, список каталогов (путь), собственно имя и расширение. Выделить из этой строки имя файла (без расширения).

[Langley]

Что-нибудь вроде

var
   s : string;
   i : integer;
BEGIN
   s := 'C:\Program Files\Common\smtn.exe';
   repeat
      i := pos('\', s);
      s := copy(s, i+1, length(s)-i);
   until (i = 0);
   s := copy(s, 0, pos('.', s)-1);
   writeln(s);
   readln;
END.

Дальнейшую модернизацию и оптимизацию оставляю на Ваше усмотрение.

[TinMan]

Вообще-то, в модуле DOS есть процедура для этого..

Procedure FSplit(Path: PathStr; var Dir: DirStr; var Name: NameStr; var Ext: ExtStr)

Разбивает имя файла Path на 3 составные части (каталог, имя файла, расширение).

[quade1992]

Спасибо большое!)