[samurai_tmb]

Разработать программу, обнаруживающую файлы – компаньоны и запрашивающую у пользователя, что делать с этими файлами (удалять, переписывать в другой каталог)...
Поиск файлов организовал...
Но как сделать так, чтобы выводились файлы с одним именем, но с разными расширениями...
Please HELP!!!

[AleD]

Сообщение от samurai_tmb

Разработать программу, обнаруживающую файлы – компаньоны и запрашивающую у пользователя, что делать с этими файлами (удалять, переписывать в другой каталог)...
Поиск файлов организовал...
Но как сделать так, чтобы выводились файлы с одним именем, но с разными расширениями...
Please HELP!!!

Если я тебя правильно понял тебе нужно вытащить расширение файла из его имени и просто имя без расширения?
Если да то вот код:

Код:

var
  ffn, //полное имя файла
  fn,  //просто имя файла
  ext: String; //его расширение
begin
  ffn := 'C:\data.dat';
  fn := ChangeFileExt(ExtractFileName(ffn),''); //нужно изменить расширение на пустую строчку
  ext := ExtractFileExt(ffn);