Страница 1 из 1
Доопросить сервер
Добавлено: 22 май 2011, 15:21
Shouldercannon
Пришедший ответ помещаю в переменную типа string. Далее выполняю проверку на наличие \final\\queryid\ в пришедшем ответе
Код: Выделить всё
if not (Copy(qqq, Pos('\final\\queryid\', qqq), 16) = '\final\\queryid\') then // опросить повторно и опрашивать до тех пор пока в конце не будет \final\\queryid\
Как провести цикл проверки?
Re: Доопросить сервер
Добавлено: 24 май 2011, 15:29
dr.Jekill
[syntax="delphi"]
while true do
begin
qqq:=ответа сервера;
if (Copy(qqq, Pos('\final\\queryid\', qqq), 16) = '\final\\queryid\') then
Break;
end;
[/syntax]
Re: Доопросить сервер
Добавлено: 24 май 2011, 16:10
Shouldercannon
[syntax="delphi"]// ответ от сервера
while not (Copy(qqq, Pos('\final\\queryid\', qqq), 16) = '\final\\queryid\') do //тут доопрашиваем[/syntax]
В любом случае спасибо
