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

Вниз

Помогите разобраться со строковым параметром в сети   Найти похожие ветки 

 
{{{KOTOS}}}   (2003-02-26 19:28) [0]

Мастера Помогите разобраться со строковым параметром [D6, Win2k]

Дело в том что мне надо распределить текст после ключей
Пример
/qwed/Ваня/fdas/Пупкин

а Чтобы в edit1 было Ваня
а ы Edit2 было Пупкин

Данные могут быть разные

строка цельная и передается по сети.


 
alexvan ©   (2003-02-26 22:05) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
FllStr, TmpStr: String;
LnStrng, Pstn1, Pstn2, PosMark, LnTmpStr : Integer;
begin
FllStr:="/qwed/Ваня/fdas/Пупкин";
LnStrng:=Length(FllStr);
While LnStrng<>0 do
begin
Pstn1:=Pos("/qwed/",FllStr);
Pstn2:=Pos("/fdas/",FllStr);
Delete(FllStr,1,6);
PosMark:=Pos("/",FllStr);
If PosMark<>0 then
begin
TmpStr:=Copy(FllStr,1,PosMark-1);
Delete(FllStr,1,PosMark-1);
end
else
begin
TmpStr:=FllStr;
FllStr:="";
end;
if Pstn1=1 then Edit1.Text:=TmpStr;
if Pstn2=1 then Edit2.Text:=TmpStr;
LnStrng:=Length(FllStr);
end;
end;

а можно и короче...



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

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

Наверх




Память: 0.46 MB
Время: 0.019 c
3-67104
Yuraz
2003-04-02 16:03
2003.04.21
Почему при выходе из приложения, подкл. к БД, после disconnect


8-67402
master_yoda
2002-12-29 14:25
2003.04.21
Морфинг изображений


7-67589
romychk
2003-03-04 11:16
2003.04.21
Запуск приложения на перле из Д под FreeBSD


7-67581
Евген
2003-02-26 15:36
2003.04.21
Работа с ИК портом


14-67486
Alarm
2003-04-03 13:04
2003.04.21
Delphi 4