я наверно так написал бы
как пример работы со строками, в работе не проверялся
delphi Код:
//Анализ HTML кода
procedure HTMLParsing(S : string);
var
p : integer; //позиция в тексте
code : string;
begin
p := Pos('bypass -h ', S); //находим
while p > 0 do begin //а вдруг не нашли
code := copy(S, p+10, 16); //в Code копируем кусок из 16 символов,
//пропуская 'bypass -h '
/////////////////////////////////////////////////
// .... тут ваш код для обработки строки code
/////////////////////////////////////////////////
Delete(S, 1, p+26); //удаляем обработанный кусок строки
p := Pos('bypass -h ', S); //ищем дальше
end; //кстати тут точка с запятой не нужна,
//но форум тогда не подсвечивает end
end;
Var
HTML : String;
begin
if FromServer and (pck[1]=#$19) then begin
HTML := ReadS(6); //Считываем текст диалога
HTMLParsing(HTML) //и передаем на анализ
end; //и тут ; не надо ))))
end.