Иллюстрированный самоучитель по Kylix


         

Платформонезависимый код



Листинг 21.3. Платформонезависимый код

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

end;

Если использование функций библиотек не приводит к работающему решению, можно попробовать изолировать специфичный код в блоки $IFDEF. Однако постарайтесь ограничить число таких блоков.

Назад
Содержание
Вперед


Содержание Назад Вперед