关于pwidechar的一个很奇怪的问题(50分)

var
c: integer;
wpc: PWideChar;
begin
wpc:='This is a String';
for c := 0 to Length(wpc) - 1 do
begin
if wpc[c] = WideChar(' ') then
begin
wpc[c] := WideChar(0);
if wpc = 'This is' then
break;
else
wpc[c] := WideChar(' ');
end;
end;
end;

运行到 wpc[c] := WideChar(0);
会报错，这个问题很奇怪

我这里没有报错，不过到WideChar(0)的时候，wpc整个就结束了

if wpc[c] = WideChar(' ') then
begin
wpc[c] := WideChar(0);
memo1.lines.add(IntToStr(Length(wpc)));
if wpc = 'This is' then
break;
else
wpc[c] := WideChar(' ');
end;


一般人循环变量都用i，楼主比较有个性用c