Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.11;
Скачать: CL | DM;

Вниз

Как из полного имени файла вместе с директорией вычесть только формат?   Найти похожие ветки 

 
Man-In-Red ©   (2002-02-24 16:26) [0]

Пожалуйста, подскажите как из полного имени файла вместе с директорией вычесть только формат и поместить его в label1.caption?
Заранее благодарен!


 
vrRaven   (2002-02-24 16:33) [1]

Если ты под словом формат имеешь ввиду расширение, то:
ExtractFileExt() - выделяет расширение файла
Я не помню, если оно не работает для полного пути вместе с директорией, но для имени файлов сгодится...


 
McSimm ©   (2002-02-24 16:33) [2]

Если предположить, что формат - это расширение имени, то:
Label1.Caption := ExtractFileExt(S);


 
DarkAngel   (2002-02-24 16:39) [3]

Формат, это типа раширение файла? Если нужно расширение файла без
пути и имени файла, тогда попробуй искать в строке позицию точки,
типа так.

var
s,ss:widestring
.......
x:=pos(".",s);
ss:=copy(s,x,3);
label1.caption:=ss;

Приблизительно, так, может есть какие-то другие способы, но сейчас ничего под рукой нет, поэтому не обезсудь.


 
Man-In-Red ©   (2002-02-24 16:48) [4]

А ну да...Расширение :)
Спасибо!


 
VID ©   (2002-02-24 20:37) [5]

TO DarkAngel : А зачем так извращаться ?


 
panov ©   (2002-02-24 21:32) [6]

>DarkAngel (24.02.02 16:39)
Увы, но точка может быть и в имени каталога...


 
Anatoly Podgoretsky ©   (2002-02-24 21:47) [7]

Более того их может быть несколько, вполне нормальное имя x.y.z a.b.c


 
VID ©   (2002-02-24 22:17) [8]

TO panov & Anatoly: ну говорю же изврат :)))



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

Текущий архив: 2002.03.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.012 c
1-32450
yaJohn
2002-02-20 13:11
2002.03.11
bistraya Windows ;)))


4-32612
Landgraph
2002-01-11 11:57
2002.03.11
С OpenGL никто не обсчался чтоли?!


7-32582
New
2001-12-06 10:10
2002.03.11
нужен код команды int 19


14-32555
RUS1
2002-01-25 14:47
2002.03.11
Братья нужен простенький инсталятор на Delphi с исходными текстами!!


1-32445
Last Hero
2002-02-19 21:38
2002.03.11
Помогите преобращовать Record в Variant!