Код для среды Windows

Листинг 21.2.Код для среды Windows

while p^ <>
#0 do
begin
if р^ in LeadBytes then
inc (p) ;
inc(p);

end;

Этот код можно преобразовать в платформонезависимый, как показано в листинге 21.3.