t_id
480
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950833050 | 1015805 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0291.pp } { @procvar in tp mode bugss OK 0.99.13 (PFV) } {$ifdef fpc}{$mode tp}{$endif} function ReturnString: string; begin ReturnString := 'A string'; end; procedure AcceptString(S: string); begin WriteLn('Got: ', S); if S<>'A string' then begin writeln('ERROR!'); halt(1); end; end; type TStringFunc = function: string; const SF: TStringFunc = ReturnString; var S2: TStringFunc; begin @S2:=@ReturnString; AcceptString(ReturnString); AcceptString(SF); AcceptString(S2); end.