t_id
365
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Successfully run | 50 | 100.0 | 2024/05/17 22:33:00 21 | 2024/05/18 00:20:00 0 | |
i386 | 24 | 48.0 | 2024/05/17 22:33:00 21 | 2024/05/18 00:20:00 0 | |
sparc | 20 | 40.0 | 2024/05/17 23:24:00 38 | 2024/05/17 23:55:00 41 | |
x86_64 | 6 | 12.0 | 2024/05/18 00:05:00 29 | 2024/05/18 00:19:00 0 | |
linux | 7 | 14.0 | 2024/05/17 23:33:00 28 | 2024/05/18 00:20:00 0 | |
win32 | 5 | 10.0 | 2024/05/17 22:33:00 21 | 2024/05/17 23:54:00 25 | |
solaris | 38 | 76.0 | 2024/05/17 23:23:00 25 | 2024/05/18 00:19:00 0 | |
3.3.1 | 29 | 58.0 | 2024/05/17 22:33:00 21 | 2024/05/17 23:59:00 30 | |
3.2.3 | 21 | 42.0 | 2024/05/17 23:24:00 38 | 2024/05/18 00:20:00 0 |
{ 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.