思路如下:
var
xedit:string;
begin
xedit:='edit1';
(xedit).text:='abc'; 怎么让这句等价 edit1.text:='abc';end;
谢谢
var
xedit:string;
begin
xedit:='edit1';
(xedit).text:='abc'; 怎么让这句等价 edit1.text:='abc';end;
谢谢
解决方案 »
- SQL Sever2000绿色版,告别软件分发时安装SQL的烦恼
- DBGridEh中怎么添加新行?
- ★★★★★热烈庆祝CSDN论坛秀主力站点页面点击率超过★★★★★一万次★★★★★
- 快来指点一下:如何实现数据导入
- 急求... 在DBCtrlGrid里面放一个DBChart来显示数据的问题
- 如何在三层的app server 端的多个远程数据模块共享同一个数据库连接
- 怎麼寫delphi語句把word/excel/bmp等文件存入Oracle中的blob字段里去??
- 请问:SysTreeView这个控件在哪儿找?
- 什么意思?我提的问题到哪里去了?
- 为什么我的delphi的 分析组件(决策)不好用?当把active设为true时提示出错,各位大虾请帮忙
- 升级后台数据库
- 在线等■☆如何改变字段串的颜色再添到Memo中☆■
P : Pointer;
XEdit : string;
begin
XEdit := 'Edit1';
P := Form1.FieldAddress(XEdit);
//ShowMessage(TEdit(P^).Text);
TEdit(P^).Text := 'abc';
end;
XEdit : string;
begin
XEdit := 'Edit1';
TEdit(self.FieldAddress(XEdit)^).Text := 'abc';
end;