mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-01 21:02:36 +02:00
19 lines
241 B
ObjectPascal
19 lines
241 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.
|
|
|