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


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



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

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

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

Назад
Начало
Вперед


Начало Назад Вперед


Книжный магазин