fpcsrc/tests/webtbs/tw0701a.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

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.