把下面的代码写在edit的事件中去.
(Sender as tedit).Text :='AAAAAAA';
(Sender as tedit).Text :='AAAAAAA';
解决方案 »
- Adoquery中如何控制某个字段不录入重复值?
- 大家帮帮忙。控件!控件!
- 如何实现一次性查询
- 请问各位大虾!从excel导入access的时候用ado的select语句是不是顺序导入的?
- DBlookupComboBox的listSource如何动态指定(指定为另一个dataset)
- quickreport报表统计问题 300分
- 请问在不用任何第三方控件的情况下....
- delphi7调用DLL与DELPHI6不同吗,程序是书本上的例子,如下通不过;马上给分
- 谁能给我一个局域网内的文件搜索程序。要是delphi写的。
- 今日与朋友讨论如何让程序自动删除,自己找到一个简单的方法,拿出来与大家分享一下!
- 再问一下关于这个窗体继承的问题
- 送分
var I: Integer;
begin
for I := 1 to 10 do
(Form1.FindChildControl('edit' + IntToStr(I)) as TEdit).Text := 'AAAAA';
end;—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
var abcd:string;
abcd:="edit1.text:='abcdefg'";
写什么代码能使得结果edit1的TEXT值为abcdefg?