var s: TEdit; s:=TEdit(FindComponent('Edit1')); //界面上必须存在Edit1 s.Text:='你好';
前面的定义都指定了为String,后面哪来.Text?学点基础吧。
var 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;
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;