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