mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 18:19:24 +02:00
867fc54147
--- Reverse-merging r19117 into '.': U tests\tbs\tb0349.pp U tests\tbs\tb0503.pp G . --- Recording mergeinfo for reverse merge of r19117 into '.': G . git-svn-id: trunk@19136 -
36 lines
475 B
ObjectPascal
36 lines
475 B
ObjectPascal
{ %VERSION=1.1}
|
|
var
|
|
p : pwidechar;
|
|
c1,c2 : widechar;
|
|
i : longint;
|
|
a : ansistring;
|
|
w : widestring;
|
|
err : boolean;
|
|
|
|
const somestr : pwidechar = 'blaat';
|
|
|
|
begin
|
|
p:=@c1;
|
|
i:=0;
|
|
c2:=p[i];
|
|
|
|
w:='hello';
|
|
a:=w;
|
|
|
|
writeln(a);
|
|
if a<>'hello' then
|
|
err:=true;
|
|
writeln(w);
|
|
if w<>'hello' then
|
|
err:=true;
|
|
|
|
p:='';
|
|
p:='hello';
|
|
writeln(widestring(p));
|
|
if widestring(p)<>'hello' then
|
|
err:=true;
|
|
|
|
if err then
|
|
halt(1);
|
|
end.
|