t_id
567
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022468803 | 1027337 | True | False | Successfully run |
Record count: 1
{ %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.