Tedit遇到个奇怪的问题(50分)

  • 主题发起人 主题发起人 大菠萝
  • 开始时间 开始时间

大菠萝

Unregistered / Unconfirmed
GUEST, unregistred user!
Tedit(findcomponent(xw)).Text:=shuju.h11.fieldbyname('jzxh').AsString;<br>edit1.Color:=$00C5BFFF; <br>Tedit(findcomponent(xw)).Color:=$00C5BFFF; <br><br>帮忙看看最后一句为什么不对,前面两句都没问题
 
// 你的代码在我这里没有任何问题。<br>var xw:String;<br>begin<br>&nbsp; xw := 'Edit1';<br>&nbsp; TEdit(FindComponent(xw)).Text := shuju.h11.fieldbyname('jzxh').AsString;<br>&nbsp; Edit1.Color := $00C5BFFF;<br>&nbsp; TEdit(FindComponent(xw)).Color := $00C5BFFF;<br>end;
 
我的也没问题<br>var xw:String;<br>begin<br>&nbsp; xw := 'Edit1';<br>&nbsp; TEdit(FindComponent(xw)).Text := 'aaa';<br>&nbsp; //Edit1.Color := $00C5BFFF;<br>&nbsp; TEdit(FindComponent(xw)).Color := $00C5BFFF;<br>end;
 
我去掉最后一句Tedit(findcomponent(xw)).Color:=$00C5BFFF; 程序不报错,但加上后出<br>Access violation at address 0043E610 in module 'sfe.exe'.Read of address 00000070 的错误,真搞不明白
 
你的DELPHI有问题了
 
用as再试试?
 
重新创建应用程序试试,如果还不行可能就是你的Delphi出问题了,以下是我的,没问题。<br>&nbsp; TEdit(FindComponent('Edit1')).Text := 'Me';<br>&nbsp; TEdit(FindComponent('Edit1')).Color := $00C5BFFF;
 
Showmessage(FindComponent(xw).ClassName);<br>看看是什麼
 
后退
顶部