|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.05.2007, 10:46 | #1 |
Форумчанин
Регистрация: 24.01.2007
Сообщений: 108
|
HELP!!!
Как из этой строчки ('\\Admsrv\OB\KID\Scan\Исходящие\83 4.doc') вставить в Label1 только 834 или 834.doc???
|
29.05.2007, 11:15 | #2 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
Можно так попробывать:
procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption:=ExtractFileName('\\ Admsrv\OB\KID\Scan\Исходящие\834.do c'); end; |
29.05.2007, 17:32 | #3 |
Форумчанин
Регистрация: 24.01.2007
Сообщений: 323
|
или
s:=copy(эта строка, длинна строки - 7, 7) тут 7 - это количество букв которые нужно скопировать
Всё проще чем вы думаете, нужно только правильно подойти к тому или иному вопросу?
Последний раз редактировалось ZhekON; 29.05.2007 в 17:39. |
30.05.2007, 10:06 | #4 | |
Форумчанин
Регистрация: 24.01.2007
Сообщений: 108
|
Цитата:
В любом случае спс, уже сделал по совету serg1980, немного подредил вот так Код:
|
|