1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
Unit MyObject;
Interface
Uses Objects;
Type
PMyObject = ^TMyObject;
TMyObject = Object(TObject)
Field : Longint;
Constructor Init;
Constructor Load (Var Stream : TStream);
Destructor Done;
Procedure Store (Var Stream : TStream);
Function GetField : Longint;
Procedure SetField (Value : Longint);
end;
Implementation
Constructor TMyobject.Init;
begin
Inherited Init;
Field:=-1;
end;
Constructor TMyobject.Load (Var Stream : TStream);
begin
Stream.Read(Field,Sizeof(Field));
end;
Destructor TMyObject.Done;
begin
end;
Function TMyObject.GetField : Longint;
begin
GetField:=Field;
end;
Procedure TMyObject.SetField (Value : Longint);
begin
Field:=Value;
end;
Procedure TMyObject.Store (Var Stream : TStream);
begin
Stream.Write(Field,SizeOf(Field));
end;
Const MyObjectRec : TStreamRec = (
Objtype : 666;
vmtlink : Ofs(TypeOf(TMyObject)^);
Load : @TMyObject.Load;
Store : @TMyObject.Store;
);
begin
RegisterObjects;
RegisterType (MyObjectRec);
end.
|
