Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Вниз

И снова про вызовы функций-членов   Найти похожие ветки 

← →
vuk   (2002-03-27 17:21) [3]

То ли я все не правильно понимаю, то ли куда-то обсуждение не в ту сторону уходит...

to Толик:
Это случайно не то, что Вы хотели?


program Project1;
uses
SysUtils;
{$APPTYPE CONSOLE}
type
TFunc = function : longint of object;

TParent = class(TObject)
private
i: longint;
public
function Mem_fnc(): longint; virtual; abstract;
end;

TChild_1 = class(TParent)
public
constructor Create;
function Mem_fnc(): longint; override;
end;

TChild_2 = class(TParent)
public
constructor Create;
function Mem_fnc(): longint; override;
end;

{ TChild_1 }

constructor TChild_1.Create;
begin
inherited Create;
i := 1;
end;

function TChild_1.Mem_fnc: longint;
begin
Result := $FF000000 + i; //от балды
end;




{ TChild_2 }

constructor TChild_2.Create;
begin
inherited Create;
i := 2;
end;

function TChild_2.Mem_fnc: longint;
begin
Result := i;
end;


var
c1, c2 : TParent;
F : TFunc;
begin
c1 := TChild_1.Create;
c2 := TChild_2.Create;
F := c1.Mem_fnc;
writeln( Format( "%x", [F]) );
F := c2.Mem_fnc;
writeln( Format( "%x", [F]) );
C1.Free;
C2.Free;
readln; //созерцаем результаты
end.


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c