Как получить сокращенное имя файла (без расширения)

← →
Артём К. (2003-03-19 12:45) [0]

Привет всем!!!
Давненько здесь не появлялся... Всё дела..дела..
Вопрос в теме
Использую следующую конструкцию

var FindFiles: TStringList; _file: TSearchRec; begin ... FindFiles := TStringList.Create; if FindFirst("Документы\*.bln", faAnyFile, _file)=0 then begin FindFiles.Add(_file.Name); while FindNext(_file)=0 do FindFiles.Add(_file.Name); FindClose(_file); end; ... end;

Данная конструкция создаёт список файлов из дирректории
"Документы". Но в список добавляются файлы с их расширениями.
А как сделать, чтобы были просто названия файлов?

Заранее спасибо!!!

← →
Андрей Сенченко © (2003-03-19 12:49) [1]

var
s: string
begin
s := copy (_file.Name,0,pos(".",_file.Name));
end;

← →
Андрей Сенченко © (2003-03-19 12:51) [2]

а если в данном конкретном коде:

FindFiles.Add(copy(_file.Name),0,pos(".",_file.Name)-1);

← →
Berg (2003-03-19 12:52) [3]

Попробуй так:
Copy(ExtractFileName(Filename),1,Pos(".",ExtractFileName(Filename)));

LastDelimiter использовать логичнее (для файлов вида File.Something.Ext)
ChangeFileExt(FileName, "") - уберет расширение

FileName := ChangeFileExt(ExtractFileName(FullName), "")

Как получить сокращенное имя файла (без расширения) Найти похожие ветки