Цитата:
|
Сообщение от samurai_tmb
Разработать программу, обнаруживающую файлы – компаньоны и запрашивающую у пользователя, что делать с этими файлами (удалять, переписывать в другой каталог)...
Поиск файлов организовал...
Но как сделать так, чтобы выводились файлы с одним именем, но с разными расширениями...
Please HELP!!!
|
Если я тебя правильно понял тебе нужно вытащить расширение файла из его имени и просто имя без расширения?
Если да то вот код:
Код:
var
ffn, //полное имя файла
fn, //просто имя файла
ext: String; //его расширение
begin
ffn := 'C:\data.dat';
fn := ChangeFileExt(ExtractFileName(ffn),''); //нужно изменить расширение на пустую строчку
ext := ExtractFileExt(ffn); |