t_id
348
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
482189951 | 941183 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0119.pp } { problem with methods OK 0.99.6 (FK) } program ObjTest; uses crt; type ObjectA = object procedure Greetings; procedure DoIt; end; ObjectB = object (ObjectA) procedure Greetings; procedure DoIt; end; procedure ObjectA.Greetings; begin writeln(' A'); end; procedure ObjectA.DoIt; begin writeln('A '); Greetings; end; procedure ObjectB.Greetings; begin writeln(' B'); end; procedure ObjectB.DoIt; begin writeln('B'); Greetings; end; var A: ObjectA; B: ObjectB; begin A.DoIt; B.DoIt; writeln; writeln('Now doing it directly:'); A.Greetings; B.Greetings; end.