Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.05.2007, 10:46   #1
John_chek
Форумчанин
 
Аватар для John_chek
 
Регистрация: 24.01.2007
Сообщений: 108
По умолчанию 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,814
По умолчанию

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

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
По умолчанию

или
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
По умолчанию

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

тут 7 - это количество букв которые нужно скопировать
Ну да, а если имя будет не из 7 букв (854166.doc), например ?!
В любом случае спс, уже сделал по совету serg1980, немного подредил
вот так
Код:
ST1.Caption := ExtractFileName(DM.BDKart.FieldValues['path'])
в поле 'path' все пути прописаны
John_chek вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск