blob: 6d8a814fa9774d66b4783436e5d22ce54f0b31a9 (
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
|
var
wstr1: widestring;
procedure testproc(const avalue: widestring);
begin
wstr1:= avalue;
end;
var
i: longint;
w2: widestring;
begin
setlength(w2, 200000);
for i:=1 to length(w2) do
w2[i]:=Chr(i mod $60 + $20);
wstr1:=w2;
testproc(wstr1);
if wstr1<>w2 then begin
writeln('Test failed!');
Halt(1);
end;
writeln('Test OK.');
end.
|
