t_id
365
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022327912 | 1027316 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0137.pp } { Cannot assign child object variable to parent objcet type variable OK 0.99.6 } program OO_Test; Type TVater = Object Constructor Init; Procedure Gehen; Virtual; Procedure Laufen; Virtual; End; TSohn = Object(TVater) Procedure Gehen; Virtual; End; Var V : TVater; S : TSohn; Constructor TVater.Init; Begin End; Procedure TVater.Gehen; Begin Writeln('langsam gehen'); End; Procedure TVater.Laufen; Begin Gehen; Gehen; End; Procedure TSohn.Gehen; Begin Writeln('schnell gehen'); End; Begin V.Init; S.Init; V.Laufen; Writeln; S.Laufen; Writeln; V := S; V.Gehen; End.