Форум: "Основная";
Текущий архив: 2003.07.10;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c