blob: 79e01184882feb906cca62cc197c8357b005b4fd (
plain)
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
|
{ Old file: tbs0107.pp }
{ shows page fault problem (run in TRUE DOS mode) OK ??.?? }
{ PAGE FAULT PROBLEM ... TEST UNDER DOS ONLY! Not windows... }
{ -Cr -g flags }
Program Test1;
type
myObject = object
constructor init;
procedure v;virtual;
end;
constructor myobject.init;
Begin
end;
procedure myobject.v;
Begin
WriteLn('Hello....');
end;
var
my: myobject;
Begin
my.init;
my.v;
end.
|
