高手们帮我看看,delphi上能不能行得通。或者能否有变通方法呢?
s:string;
s:='Edit1'
s.text:='你好';//这里是通不过
s:string;
s:='Edit1'
s.text:='你好';//这里是通不过
解决方案 »
- 在delphi7上正常使用的一个函数,移植到XE上使用,为什么会值不对?
- 想在程序运行后可以让用户自己调节列表控件的整体宽度,怎么做?
- 在线等 急
- delphi里怎么把数据库里的信息导入和导出成文本文档(.txt)的形式啊?
- 请教一个关于VFW的问题!
- 指针的问题,p:=nil和not Assigned(p)是不是一样的
- delphi7控件代码分析中遇到的困惑!
- 求购无时间限制的录音程序原代码
- 高手们。我的是DBE怎么样发布数据库
- 使用ClientDataset做insert,手机会出现 Exception in safecall method,怎么回事啊
- 请教ACCESS里的查重问题
- 关于treeview值的问题,来者有分!!
var
s: TEdit; s:=TEdit(FindComponent('Edit1')); //界面上必须存在Edit1
s.Text:='你好';
S:TEdit;
begin
S:=TEdit.Create(self);
S.Name:='Edit1';
S.Text:='你好';
...
...
S.Free;
end;
procedure Tfr_Adj.cptclear(var vt:variant);
var tcpt: tobject;
i:integer;
strname:=string;
begin
for I := 0 to VarArrayHighBound(vt,1) do
begin
strname:=vt[i];
tcpt:= findcomponent(strname);
if tcpt is TEdit then
tedit(tcpt).text := '';
end;
end;procedure cptclear(frm:Tform;var vt:variant);
var tcpt: tobject;
i:integer;
strname:string;
begin
for I := 0 to VarArrayHighBound(vt,1) do
begin
strname:=vt[i];
tcpt:= frm.findcomponent(strname);
if tcpt is TEdit then
tedit(tcpt).text := '';
end;
end;