fpcsrc/tests/webtbs/tw9897.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

program widecharbug;

var
  AText : WideString;
  AWideChar: PWideChar;

begin
  AText := '';
  AWideChar := PWideChar(AText);
  if PWord(AWideChar)^<>0 then
    begin
      writeln(PWord(AWideChar)^);
     halt(1);
    end;
end.