t_id
964
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525348460 | 948168 | True | False | Successfully run |
Record count: 1
{$ifdef fpc}{$mode delphi}{$endif} type BRec = record fu: Function:Longint; end; var a : Longint; b : BRec; function f1:longint; begin result:=10; end; begin b.fu:=f1; // a:=b.fu(); // works well a:=b.fu; // causes "Error: incompatible types" writeln(a); if a<>10 then halt(1); end.