Советы по Delphi. Версия 1.4.3 от 1.1.2001

 end;
 2 : begin
 c := MyClass.Create;
 raise c;
 end;
 end;
end;

procedure TForm1.MyProc;
begin

 try
 Chameleon;
excepton MyBoolean do ShowMessage('Функция возвратила класс MyBoolean');
 on MyInteger do ShowMessage('Функция возвратила класс MyInteger');
 on MyClass do ShowMessage('Функция возвратила класс MyClass');
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Chameleon;
end;

end.

Взгляните на тип данных Variant в D2: следующий код

function AnyType(const TypeParm: integer): Variant;
begin

 case TypeParm of
1: Result := 1;
 2: Result := 2.0;
 3: Result := 'Три';
 4: Result := StrToDate('4/4/1944');
 end;
end;

абсолютно бестолковый, но полностью корректный!

Следующий код содержит объявление трех функций, принимающих на входе один и тот же параметр, но выдающих результаты различных типов (результат физичиски один и тот же, и занимает он 4 байта). Я не думаю, что можно одурачить delphi, чтобы с помощью этого метода возвратить строку. Это может привести к разрушению менеджера кучи. Вместо этого вызывайте необходимую вам функцию. Каждый вызов передается MyFuncRetAnything, а P1 определяет возвращаемый тип. Если хотите, можете написать другую обертку, делающую для вас еще и приведение типов.

3 вызова, 1 код.

Я понимаю, что это в действительности не то, что нужно, по я просто хотел продемонстрировать другой способ. (вы можете возвращать строки как тип PChar, который также занимает 4 байта). Вы должны использовать некоторую память, распределяемую вызовом процедуры (может быть передавать результаты как P2?).

{моя форма имеет 3 метки, одну кнопку и этот код}

var
 MyFuncRetInt : Function(P1, P2 : Integer) : Integer;
 MyFuncRetBool : Function (P1, P2 : Integer) : LongBool;
 MyFuncRetPointer : Function (P1, P2 : Integer) : Pointer;
 function MyFuncRetAnything (P1, P2 : Integer) : Integer;
var
 RetPointer : Pointer;
 RetBool : LongBool;
 RetInteger : Integer;
begin
 RetPointer := nil;
 RetBool := False;
 RetInteger := 4711;
 case P1 of
1 : Result := Integer (RetPointer);
 2 : Result := Integer (RetBool);
 3 : Result := RetInteger;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if MyFuncRetBool (2, 1900) then Label1.Caption := 'True'
 else Label1.Caption := 'False';
 Label2.Caption := IntToStr(MyFuncRetInt(3, 1900));
 Label3.Caption := IntToHex(Integer(MyFuncRetPointer(1, 1900)), 16);
end;

initialization
 MyFuncRetInt := @MyFuncRetAnything;
 MyFuncRetBool := @MyFuncRetAnything;
 MyFuncRetPointer := @MyFuncRetAnything;
end.

Преобразование формата MS BINARY в IEEE

Delphi 1

«Использование, независимое от машинного уровня» не так просто в реализации с процессорами, выпущенными до Intel-го математического сопроцессора 80x87. Я не уверен в том, что процессоры 80x86 имели какие-либо родные инструкции для выполнения операций с плавающей точкой. По-видимости, поэтому Microsoft создал свой собственный формат для чисел с плавающей точкой; он сам осуществлял всю арифметику с помощью библиотеки времени выполнения. Сегодня 80x87 осуществляет такую арифметику автоматически, и IEEE теперь стандарт.

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

Single	4 байт
Double	8 байт
Extended	10 байт

Обратите внимание на то, что тип 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. Если мы посмотрим в электронную справку, то увидим следующее: