|
#1
|
|||
|
|||
Поиск файлов...
Разработать программу, обнаруживающую файлы – компаньоны и запрашивающую у пользователя, что делать с этими файлами (удалять, переписывать в другой каталог)...
Поиск файлов организовал... Но как сделать так, чтобы выводились файлы с одним именем, но с разными расширениями... Please HELP!!! |
#2
|
||||
|
||||
Цитата:
Если да то вот код: Код:
var ffn, //полное имя файла fn, //просто имя файла ext: String; //его расширение begin ffn := 'C:\data.dat'; fn := ChangeFileExt(ExtractFileName(ffn),''); //нужно изменить расширение на пустую строчку ext := ExtractFileExt(ffn); TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |