高手们帮我看看,delphi上能不能行得通。或者能否有变通方法呢?
s:string;
s:='Edit1'
s.text:='你好';//这里是通不过

解决方案 »

  1.   

    LZ刚接触Delphi吧,建议还是扎扎实实找本基础书看看。
      

  2.   


    var
      s: TEdit;  s:=TEdit(FindComponent('Edit1'));  //界面上必须存在Edit1
      s.Text:='你好';
      

  3.   

    前面的定义都指定了为String,后面哪来.Text?学点基础吧。
      

  4.   

    var
      S:TEdit;
    begin
      S:=TEdit.Create(self);
      S.Name:='Edit1';
      S.Text:='你好';
      ...
      ...
      S.Free;
    end;
      

  5.   

    谢谢各位答案参考各位回答后作出的。 不过下面的第一个通过,第二个通不过还请各位帮帮忙。
    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;
      

  6.   

    不知道你说的通不过是什么意思。这两个没有什么差别。FindComponent本身就是一个Public函数。