blob: 63d501219ef76a5b34d50ca20db2b8ffd833cdbb (
plain)
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
26
27
28
29
30
31
32
33
|
{$ifdef fpc}{$mode objfpc}{$endif}
procedure p(a : array of const);
var
i : integer;
begin
for i:=low(a) to high(a) do
begin
write(i,': ');
if (a[i].vtype=vtpchar) then
begin
writeln('"',a[i].vpchar,'"');
if (a[i].vpchar<>'test') then
begin
writeln('Wrong string content');
halt(1);
end;
end
else
begin
writeln('No string type (',a[i].vtype,')');
halt(1);
end;
end;
end;
var
a : array[0..25] of char;
begin
a:='test';
p([a,a]);
end.
|
