while p^ <> #0 do begin if р^ in LeadBytes then inc (p) ; inc(p); end;
Этот код можно преобразовать в платформонезависимый, как показано в листинге 21.3.