Главная страница
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.017 c
1-67380
sea
2003-04-08 15:30
2003.04.21
Dynamic array: добавление и удаление элементов массива?


3-67149
SanteR
2003-04-02 15:58
2003.04.21
Фильтр записей в TTable


3-67099
caesar
2003-04-02 14:24
2003.04.21
DbGrid


7-67571
sidor
2003-03-01 15:16
2003.04.21
---|Ветка была без названия|---


4-67628
DALEX
2003-02-22 20:29
2003.04.21
Не работает ENUMPrinters : почему-то возвращает 0 ?