Скачать: CL | DM;

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

← →
Артём К.   (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)));

---

← →
REA ©   (2003-03-19 12:56) [4]

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

---

← →
Clickmaker ©   (2003-03-19 12:59) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c