1
{ Old file: tbs0291.pp }
2
{ @procvar in tp mode bugss OK 0.99.13 (PFV) }
4
{$ifdef fpc}{$mode tp}{$endif}
6
function ReturnString: string;
8
ReturnString := 'A string';
11
procedure AcceptString(S: string);
22
TStringFunc = function: string;
25
SF: TStringFunc = ReturnString;
30
AcceptString(ReturnString);