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

Вы можете сделать это в C++. В ObjectPascal это также можно сделать, смотрите пример:

// функция Chameleon, возвращающая тип сгенерированного исключения

unitUnit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;

type

MyBoolean = class

public

Value : boolean;

end;

MyInteger = class

public

Value : integer;

end;

MyClass = class

public

Value : TStrings;

end;

TForm1 = class(TForm)

Button1: TButton;

procedureButton1Click(Sender: TObject);

private{ Private declarations }

public{ Public declarations }

procedureMyProc;

functionChameleon : boolean;

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

functionTForm1.Chameleon : boolean;

var

b : MyBoolean;

i : MyInteger;

c : MyClass;

r : integer;

begin

r := Random(3);

caser of

0 : begin

b := MyBoolean.Create;

raiseb;

end;

1 : begin

i := MyInteger.Create;

raisei;

end;

2 : begin

c := MyClass.Create;

raisec;

end;

end;

end;

procedureTForm1.MyProc;

begin

try

Chameleon;

exceptonMyBoolean doShowMessage('Функция возвратила класс MyBoolean');

onMyInteger doShowMessage('Функция возвратила класс MyInteger');

onMyClass doShowMessage('Функция возвратила класс MyClass');

end;

end;

procedureTForm1.Button1Click(Sender: TObject);

begin

Chameleon;

end;

end.

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

functionAnyType( constTypeParm: 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;

functionMyFuncRetAnything (P1, P2 : Integer) : Integer;

var

RetPointer : Pointer;

RetBool : LongBool;

RetInteger : Integer;

begin

RetPointer := nil;

RetBool := False;

RetInteger := 4711;

caseP1 of

1 : Result := Integer (RetPointer);

2 : Result := Integer (RetBool);

3 : Result := RetInteger;

end;

end;

procedureTForm1.Button1Click(Sender: TObject);

begin

ifMyFuncRetBool (2, 1900) thenLabel1.Caption := 'True'

elseLabel1.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.

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