mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-25 17:59:06 +02:00
26 lines
361 B
ObjectPascal
26 lines
361 B
ObjectPascal
{$mode tp}
|
|
|
|
function ReturnString: string;
|
|
begin
|
|
ReturnString := 'A string';
|
|
end;
|
|
|
|
procedure AcceptString(S: string);
|
|
begin
|
|
WriteLn('Got: ', S);
|
|
end;
|
|
|
|
type
|
|
TStringFunc = function: string;
|
|
|
|
const
|
|
SF: TStringFunc = ReturnString;
|
|
var
|
|
S2: TStringFunc;
|
|
begin
|
|
@S2:=@ReturnString;
|
|
AcceptString(ReturnString);
|
|
AcceptString(SF);
|
|
AcceptString(S2);
|
|
end.
|