mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
18 lines
240 B
ObjectPascal
18 lines
240 B
ObjectPascal
var
|
|
s : string;
|
|
|
|
procedure UseString(const as : string);
|
|
begin
|
|
s:=as;
|
|
end;
|
|
|
|
procedure MyExit;
|
|
begin
|
|
Writeln('Last call to UseString was with as = ',s);
|
|
end;
|
|
|
|
begin
|
|
exitproc:=@MyExit;
|
|
UseString('Dummy test');
|
|
end.
|