| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Имя файла [D6, D7, WinXP]

Страницы:   < 1 2 >

Ivolg ©   (2004-06-14 19:07:00) 

как мона получить имя файла без его расширения. Спасибо!!!

---

default   (2004-06-14 20:17:00) [21]

ChangeFileExt(FileName, '')

---

Piter   (2004-06-14 20:14:00) [22]

function ExtractFileNameWithoutExt(FileName: string) : string;
var
 i:integer;
 s:string;
begin
 s := ExtractFileName(FileName);
 i := length(ExtractFileExt(FileName));
 if i<>0 then
   delete(s, length(s) - i +1, i);
 Result := s;
end;

---

default   (2004-06-14 20:08:00) [23]

да вроде верно [4]

---

tower   (2004-06-14 20:04:00) [24]

Не знаю что и думать.
Разве что есть стандартная функция нахождения последнего вхождения подстроки.
Или расширение должно обязательно быть на 3 символа?

---

Palladin   (2004-06-14 20:00:00) [25]

а ты подумай

---

tower   (2004-06-14 19:59:00) [26]

Чё не нравится.

---

Palladin   (2004-06-14 19:53:00) [27]

и часто ты так безолаберно пишешь?

---

tower   (2004-06-14 19:46:00) [28]

filename:='file.xxx';

//в переменной filename имя файла

i:=length(filename);
while (i>0)and (filename[i]<>'.') do i:=i-1;
if i>0 then delete(filename,i,length(filename)-i+1);

//в filename только имя файла

---

Palladin   (2004-06-14 19:44:00) [29]

что такое расширение файла?

---

Ivolg   (2004-06-14 19:38:00) [30]

Palladin
Как?

---

Palladin   (2004-06-14 19:14:00) [31]

нужно получить имя файла и убрать расширение

---

Страницы:   < 1 2 >

Наверх