t_id
1496
t_adddate
2005/02/17
t_result
0
Flag
t_fail
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022781087 | 1027388 | True | False | Success, compilation failed |
Record count: 1
{ %fail } {$ifdef fpc}{$MODE delphi}{$endif} type TA = class(TInterfacedObject) public constructor Create; end; TB = class(TA) function Clone: TB; end; constructor TA.Create; begin inherited Create; end; function TB.Clone: TB; var b: TB; begin b := Create; writeln(integer(b)); writeln(integer(self)); Result := b; end; var aa,aa2: TB; begin aa := TB.Create; aa2 := aa.Clone; end.