为什么这里的boolean会报readonly呢？该如何处理

2012-02-10

为什么这里的boolean会报readonly呢？Delphi(Pascal) codeprocedure TForm1.Button1Click(Sender: TObject)

为什么这里的boolean会报readonly呢？

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject); var lppe:TProcessEntry32; found:boolean; Hand:THandle; begin       Hand:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);      lppe.dwSize := Sizeof(lppe); //初始化       found:=Process32First(Hand,lppe);       while found do       begin          ListBox1.Items.Add(StrPas(lppe.szExeFile));//列出所有进程。          found:=Process32Next(Hand,lppe);       end;  end;

编译的时候IDE报 [DCC Error] DownMov.pas(444): E2129 Cannot assign to a read-only property 位置就是在while found do 和 found:=Process32Next(Hand,lppe);这里

我的IDE是XE SP1

[解决办法]
好像是编译器的bug？
把found改名为bfound呢？