Object转换问题。 var obj:Tobject;beginTedit(obj).text:='aaa';end;请问我知道obj是Tedit,那么不用强制转换Tedit(obj)方法用其他方法把值放到edit控件里呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 as成Tedit(obj as Tedit).text:='aaa'; 你知道是TEdit 那么直接用这个Edit赋值不好么…… 一般是不知道你传入的参数是什么类型的 才用Object 然后进行条件判断举个例子procedure SetValue(aObj: TObject);begin if aObj is Tedit then (aObj as Tedit).text:='aaa';end;你知道是TEdit procedure SetValue(aObj: Tedit);begin aObj.text:='aaa';end;不知道你是不是这个意思呢 Delphi + ADO + Oracle + ReportBuilder 问题求解? 简单问题~! 一个sql问题。 怎么用SOCKET传送一个自定义类型的数据 如何对弹出对话框中设代码? delphi 6 的CD KEY? 请教interface引用问题 delphi xe6如何把ANSI作为默认字符编译 请问到哪里去找tdxdbgrid控件? 我是阿水,特来送分。还有巨难问题(打印走纸控制)求大家帮忙 form1调用form2,想用“loading。。”过渡!咋整?? delphi创建虚拟硬盘的问题
你知道是TEdit 那么直接用这个Edit赋值不好么……
一般是不知道你传入的参数是什么类型的 才用Object 然后进行条件判断
举个例子procedure SetValue(aObj: TObject);
begin
if aObj is Tedit then
(aObj as Tedit).text:='aaa';
end;你知道是TEdit procedure SetValue(aObj: Tedit);
begin
aObj.text:='aaa';
end;不知道你是不是这个意思呢