Скачать: CL | DM;

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]

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

---

← →
Anatoly Podgoretsky ©   (2003-06-28 17:25) [7]

NDeu © (28.06.03 16:21)
Ну не совсем удовлетворяет, в структуре это могут быть совсем разные процедуры.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c