Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 29.05.2007, 10:46   #1
John_chek
Форумчанин
 
Аватар для John_chek
 
Регистрация: 24.01.2007
Адрес: Ростовская область
Сообщений: 108
Репутация: 10
По умолчанию HELP!!!

Как из этой строчки ('\\Admsrv\OB\KID\Scan\Исходящие\83 4.doc') вставить в Label1 только 834 или 834.doc???
John_chek вне форума   Ответить с цитированием
Старый 29.05.2007, 11:15   #2
SERG1980
Профессионал
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,813
Репутация: 717
По умолчанию

Можно так попробывать:

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=ExtractFileName('\\ Admsrv\OB\KID\Scan\Исходящие\834.do c');
end;
SERG1980 вне форума   Ответить с цитированием
Старый 29.05.2007, 17:32   #3
ZhekON
Форумчанин
 
Аватар для ZhekON
 
Регистрация: 24.01.2007
Сообщений: 323
Репутация: 130
По умолчанию

или
s:=copy(эта строка, длинна строки - 7, 7)

тут 7 - это количество букв которые нужно скопировать
__________________
Всё проще чем вы думаете, нужно только правильно подойти к тому или иному вопросу?

Последний раз редактировалось ZhekON; 29.05.2007 в 17:39.
ZhekON вне форума   Ответить с цитированием
Старый 30.05.2007, 10:06   #4
John_chek
Форумчанин
 
Аватар для John_chek
 
Регистрация: 24.01.2007
Адрес: Ростовская область
Сообщений: 108
Репутация: 10
По умолчанию

Цитата:
Сообщение от ZhekON Посмотреть сообщение
или
s:=copy(эта строка, длинна строки - 7, 7)

тут 7 - это количество букв которые нужно скопировать
Ну да, а если имя будет не из 7 букв (854166.doc), например ?!
В любом случае спс, уже сделал по совету serg1980, немного подредил
вот так
Код:

ST1.Caption := ExtractFileName(DM.BDKart.FieldValues['path'])

в поле 'path' все пути прописаны
John_chek вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


01:43.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru