Листинг 21 2 Код для среды Windows

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

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

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