关于with ... do 的问题？
===============这是正确的代码=======================
procedure TForm1.Button1Click(Sender: TObject);
begin
with OpenDialog1 do
with RichEdit1 do
if Execute then //OpenDialog1
begin
Lines.LoadFromFile(FileName);
FFileName := FileName;
SetFocus;
Modified:=False;
end;
end;
===============疑问=====================
用了两个：
with OpenDialog1 do
with RichEdit1 do
我不明白的是：
系统怎么会知道，Execute 用OpenDialog1，
而又是怎么会知道：SetFocus 是用RichEdit1的
请高人指点一，二
[解决办法]
begin
Lines.LoadFromFile(FileName);
FFileName := FileName;
SetFocus;
Modified:=False;
end;
都是RichEdit1的赋值
只有Execute 是OpenDialog1
