HELP!!! - Общие вопросы Delphi

John_chek · 29.05.2007, 10:46

Как из этой строчки ('\\Admsrv\OB\KID\Scan\Исходящие\83 4.doc') вставить в Label1 только 834 или 834.doc???

SERG1980 · 29.05.2007, 11:15

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

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=ExtractFileName('\\ Admsrv\OB\KID\Scan\Исходящие\834.do c');
end;

ZhekON · 29.05.2007, 17:32

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

тут 7 - это количество букв которые нужно скопировать

John_chek · 30.05.2007, 10:06

Цитата:

Сообщение от ZhekON

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

тут 7 - это количество букв которые нужно скопировать

Ну да, а если имя будет не из 7 букв (854166.doc), например

?!
В любом случае спс, уже сделал по совету serg1980, немного подредил
вот так

Код:

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

в поле 'path' все пути прописаны

29.05.2007, 10:46	#1
John_chek Форумчанин Регистрация: 24.01.2007 Сообщений: 108	HELP!!! Как из этой строчки ('\\Admsrv\OB\KID\Scan\Исходящие\83 4.doc') вставить в Label1 только 834 или 834.doc???

29.05.2007, 17:32	#3
ZhekON Форумчанин Регистрация: 24.01.2007 Сообщений: 323	или s:=copy(эта строка, длинна строки - 7, 7) тут 7 - это количество букв которые нужно скопировать Всё проще чем вы думаете, нужно только правильно подойти к тому или иному вопросу? Последний раз редактировалось ZhekON; 29.05.2007 в 17:39.

29.05.2007, 11:15	#2
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	Можно так попробывать: procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption:=ExtractFileName('\\ Admsrv\OB\KID\Scan\Исходящие\834.do c'); end;