如何得到TEdit.text的地址？因为有指针要指向它。

[hqhqhw]

要得到TEdit.text的地址，然后赋给一个字符串指针。下面的代码应该怎么修改？或者还有别的办法实现？
var edit1p,edit2p:^string;
edit1p:=@(edit1.text);
edit2p:=@(edit2.text);

[Brune]

var
a:pchar
a:=pchar(edit1.text);

[馮強]

这样写：

var edit1p,edit2p:^String;

begin

edit1p^:=edit1.text;
edit2p^:=edit2.text;
end;

end.

[hks]

TEdit.Text是一个属性，不是用来存储东西的地方，你用字符串指针指向它干吗？

[gaoys1979]

string是delphi自己管理的东东，不推荐使用他的指针操作。
最好使用pchar

这种理论性的研究也比较少见。;)

[knock]

pchar(edit1.text); 就变成指针形式的了

[ilang]

只知道赋予字符串可以这样SendMessage(Edit1.Handle, EM_REPLACESEL, 0, LongInt(PChar('xy')));

[largewang]

Edit.Text是动态得到的，哪来的地址啊！


直接指向edit不就可以访问它的Text了，何必硬要指到它的Edit呢？！！！

[耙子]

你得不到它有效的指针。
这个问题，我几年前曾经也试图得到，想在别的函数里面通过指针赋值。
一支不行，后来看了TEdit的源代码才知道为什么不行。

看help能知道这个Text属性继承与TControl.
真正的Text 是 private FText，我们访问不到。
我们平时使用 Text:= xxx;
xxx:= Edit.Text 这都是通过方法操作的，所以单单从 Edit.Text 上面的不到任何有效的指针。