fpcsrc/tests/webtbs/uw0701e.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

unit uw0701e;

  interface

    procedure TestProc(arg: AnsiString);

    var
       s1: array[0..9] of AnsiString;

  implementation

    var
       s2: array[0..9] of AnsiString;

    procedure TestProc(arg: AnsiString);

      begin
         s1[0] := arg + '!s10';
         s1[3] := arg + '!s13';
         s2[4] := arg + '!s24';
         s2[7] := arg + '!s27';
      end;
initialization
finalization
end.