Доопросить сервер

[Shouldercannon]

Пришедший ответ помещаю в переменную типа string. Далее выполняю проверку на наличие \final\\queryid\ в пришедшем ответе

Код: Выделить всё

if not (Copy(qqq, Pos('\final\\queryid\', qqq), 16) = '\final\\queryid\') then // опросить повторно и опрашивать до тех пор пока в конце не будет \final\\queryid\

Как провести цикл проверки?

[dr.Jekill]

[syntax="delphi"]
while true do
begin
qqq:=ответа сервера;
if (Copy(qqq, Pos('\final\\queryid\', qqq), 16) = '\final\\queryid\') then
Break;
end;
[/syntax]

[Shouldercannon]

[syntax="delphi"]// ответ от сервера
while not (Copy(qqq, Pos('\final\\queryid\', qqq), 16) = '\final\\queryid\') do //тут доопрашиваем[/syntax]
В любом случае спасибо