■■ With语句的怪事，谁遇见过吗？

[五维思考]

procedure TForm1.btn1Click(Sender: TObject);
var Str:string;
begin
  Str:=Memo1.Text;
  with Memo1 do
  begin
    Caption:=Text
  end;
end;

上图是调试时显示的Memo1.Text值


上图是调试时显示with Memo1 do 后的Text值

为什么会这样呢？大家可以试试，我用Delphi7

[五维思考]

补充一张

[五维思考]

其实第二个之所以显示为“Form1”，是因为编译器认为Self.Text，但真正赋值给Caption的却是正确的值“Memo1”，难道是这编译器的BUG吗？

[珍惜生命远离CPP]

应该是调试器的问题.
我用D2009也有同样的问题.

[猴子先生大宝贝]

[code=Delphi]
function TControl.GetText: TCaption;
var
Len: Integer;
begin
Len := GetTextLen;
SetString(Result, PChar(nil), Len);
if Len <> 0 then GetTextBuf(Pointer(Result), Len + 1);
end;
[/code]

Text的返回值是TCaption，于是乎……

[DoerSoft]

很明显，这里的caption访问到了form1即窗口的属性，因为memo控件没有caption属性。

[jmxb123]

我觉得跟caption是谁的没关系,

用鼠标指向变量时如果已经执行到这句，就会显示执行后的值，如没执行到这句，它就会估算 （用鼠标指的时候先显示出个单词evaluating)

Caption:=Text;
caption:='';//添加这句 随便一句不管什么都行吧，执行到这，再用鼠标指 就会变了

[gzyzljk]

简单明了一个事情，doersoft都已经说到点了，还在这说，晕。。。

[五维思考]

我感觉就是调试器不认With语句造成的

[jmxb123]

我觉得好像只有当执行过后才知道它的存在

[qkhhxkj102]

我试试看

[onemonth]

坚决不使用with，很容易把代码搞乱，把人搞糊涂。为了少打几个字得不偿失。何况有CtrlV，代码自动完成这些东东。

[DreamMan81]

这是因为memo没有caption属性,就自动调用了self.caption.

[猴子先生大宝贝]

老大，人家说的是TEXT，不是CAPTION。
好好看看问题。

[猴子先生大宝贝]

发现问题了，不用With语句，直接写个Caption := Text;看看这个Text，就明白了。