Форум: "Сети";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];

Вниз

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

← →
{{{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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c