Помогите разобраться со строковым параметром ;в сети [Win2k]
{{{KOTOS}}} © (2003-02-26 19:28:00)
Мастера Помогите разобраться со строковым параметром [D6,
Win2k]
Дело в том что мне надо распределить текст после ключей
Пример
/qwed/Ваня/fdas/Пупкин
а Чтобы в edit1 было Ваня
а ы Edit2 было Пупкин
Данные могут быть разные
строка цельная и передается по сети.
alexvan (2003-02-26 22:05:00) [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;
а можно и короче...
Наверх 
ЧАТ |
Орешник |
|
