Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

Delphi хранит следующие типы чисел с плавающей точкой в формате IEEE:

Обратите внимание на то, что тип Real (6 байт) отсутствует в данном списке. Я могу ошибаться, но мне кажется что тип Real – синтезированный в Pascal тип; он может без особых проблем существовать на процессорах ниже 80x87.

[В сторону: электронная справка Delphi сообщает, что по умолчанию (через директиву компилятора $N+), компилятор будет генерировать код для выполнения ВСЕХ операций с плавающей точкой, используя инструкции 80x87, включая тип Real. Также, для работы с типом Real, компилятор генерирует вызовы библиотеки времени выполнения, или же я полностью неправ в вышесказанном! :) ]

Во всяком случае, в электронной справке Visual Basic я увидел, что VB оперирует с типами данных Single и Double, которые также относятся к типу IEEE, и идентичны Delphi-типам Single и Double. Тем не менее, в справке отсутствует упоминание «Microsoft Binary Format».

Для того, чтобы разобраться в вопросе, я «опустился» до DOS и запустил QBasic, новую версию интерпретатора Microsoft QuickBasic, включаемую теперь в поставку DOS. Если мы посмотрим в электронную справку, то увидим следующее:

MKSMBF$ и MKDMBF$ преобразуют числа формата IEEE в «числовые строки» формата Microsoft-Binary, которые могут храниться в строковых переменных типа FIELD. CVSMBF и CVDMBF преобразуют эти строки обратно в числа формата IEEE.

MKSMBF$(выражение-единичной-точности!)

MKDMBF$(выражение-двойной-точности#)

CVSMBF (4-байтовая-числовая-строка)

CVDMBF (8-байтовая-числовая-строка)

Эти функции могут оказаться полезными при поддержке файлов данных, созданных с помощью старых версий Basic.

Суммируя вышесказанное, можно дать 3 рекомендации для получения доступа к вашим «MetaStock»-файлам:

1. Напишите вашу программу в QBasic/DOS

2. Найдите замену (с учетом совместимости с Delphi) для функций преобразований, упомянутых выше.

3. Напишите эти функции сами. Вы должны найти документацию для старых типов Single и Double, применявшихся в «Microsoft Binary Format», возможно в справочных файлах старых версий MS Basic.

Да, это работает. Объявите переменную в секции const, например:

procedurep;

constMyVariable : Integer = 0;

begin

Inc(MyVariable);

end;

В нашем примере переменная MyVariable содержит количество вызовов P.

Тем не менее, это лучшее решение, чем использование взамен какого-либо поля объекта (если это возможно).

{$R+,L+} {Это директива компилятора плюс комментарий}

{{$R+,L+} {Эта строка – два комментария, похоже на картинку?}

Аналогично:

{$DEFINE DEVEL}

{$IFDEF DEVEL}

……

{$ELSEIF}

Переключение с «devel» компиляции на не-«devel» версию происходит простым прибавлением второй скобки в первой строке. Единственное нажатие клавиши позволит переключать вам ключи компилятора.

Также для скоростных манипулиций и кратковременных изменений отлично подойдут комментарии, расположенные за строкой:

ifi=0 theninc(i); {выражение+комментарий}

ср.

{ if i=0 then inc(i); {закомментарена вся строка}

Сравните – два нажатия клавиш для установки фигурной скобки или десяток нажатий для установки (* *) до и после строки. Клавиша Del поможет вам вернуться в предыдущее состояние.

– P Gallagher

Мне необходимо получить ссылку на класс из объекта. Например, если у меня есть ссылка на объект (например, указатель на экземпляр TLabel), то мне необходимо получить ссылку на класс (например, ссылка на класс TLabel) для того, чтобы мне еще создать необходимое количество объектов данного класса. Другими словами, мне нужно дублировать экземпляры классов, создаваемые кем-то еще.

Класс, о котором идет речь, в Delphi не зарегистрирован (его нет в палитре), поэтому GetClass('TLabel') не работает, даже если экземпляры класса существуют, работать с ними можно только через RTTI. Вдобавок к этому, у меня нет даже кода класса, поэтому работа через RTTI - единственный выход.