blob: ac17fba834e8e9e18fb4679825d4c83d388b6bb3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
function DoTest(params: array of PWideChar): WideString;
var
i: integer;
res: WideString;
begin
res:='';
for i:=Low(params) to High(params) do
res:=res + params[i];
DoTest:=res;
end;
var
s: WideString;
begin
s:=DoTest(['аб', 'вг', 'де']);
if s <> 'абвгде' then begin
writeln('Test failed. S=', s);
Halt(1);
end;
end.
|
