record и процедуры

← →
Still Swamp (2003-06-19 09:46) [0]

возможно ли в нижепредставленной структуре описать какие нить функции и процедуры? или создать тип, имеющий методы, но не требующий Create, как TObject?

TMyVar = record
s:string;
z:integer;
proc:procedure;
func:function;
end;

← →
MBo © (2003-06-19 09:50) [1]

да, возможно. сначала описываешь процедурный тип, в записи - поле этого типа.

← →
icWasya © (2003-06-19 11:04) [2]

type TMyVar = object s:string; z:integer; proc:procedure; func:function; end;

и вперёд

← →
Still Swamp (2003-06-28 12:17) [3]

TObject - это не Record, а вопрос задан именно про Record.

← →
Юрий Зотов © (2003-06-28 13:43) [4]

type
TMyProc = procedure(...);
TMyFunc = function(...): ...;

TMyVar = record
S: string;
Z: integer;
Proc: TMyProc;
Func: TMyFunc;
end;

procedure MyProc(...);
begin
...
end;

function MyFunc(...): ...;
begin
...
end;

var
MyVar: TMyVar;

...
with MyVar do
begin
S := "aaa";
Z := 1;
Proc := @MyProc;
Func := @MyFunc
end;

← →
NDeu © (2003-06-28 16:21) [5]

> Still Swamp (28.06.03 12:17)
> TObject - это не Record, а вопрос задан именно про Record.

TObject is class

В ответе
> icWasya © (19.06.03 11:04)
был object, а не TObject, которой удовлетворяет твои требования:)

← →
Still Swamp (2003-06-28 16:42) [6]

Это и вовсе атавизм.
Зотову сенкс.

record и процедуры Найти похожие ветки