blob: 36379e43e0b3e04cc3bd2204024ecd90724d7033 (
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
|
{$ifdef UNIX}
uses
cwstring;
{$endif UNIX}
var
i : longint;
w,w2 : widestring;
u,u2 : unicodestring;
a : ansistring;
begin
setlength(w,1000);
for i:=1 to 1000 do
w[i]:=widechar(i);
for i:=1 to 10 do
begin
a:=w;
w2:=a;
end;
setlength(u,1000);
for i:=1 to 1000 do
u[i]:=widechar(i);
for i:=1 to 10 do
begin
a:=u;
u2:=a;
end;
end.
|
