Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.10;
Скачать: 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 вся ветка

Текущий архив: 2003.07.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
4-31578
Xeon
2003-05-09 07:45
2003.07.10
Как создать ярлык?


1-31213
softmaster
2003-06-28 19:20
2003.07.10
экранные координаты


1-31242
Relaxxx
2003-06-29 17:36
2003.07.10
Чтение с файла


7-31533
VadimProgrammer
2003-04-27 18:21
2003.07.10
Cd-Rw и Delphi


1-31232
seal
2003-06-28 17:57
2003.07.10
RichEdit