一个EDIT的问题。。。在线求救呀呀!!

                            
我在FORM1中放了个EDIT框。   
  然后我想指定一个PROCEDURE对EDIT框中的内容进行控制  
  可是我按下面的运行后EDIT框里面的内容不改的。。  
   
  小弟刚学DELPHI各位大大帮忙啦  
  unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   StdCtrls,   Mask,   DBCtrls,   DB,   DBTables;  
   
  type  
      TForm1   =   class(TForm)  
          Label1:   TLabel;  
          Edit1:   TEdit;  
          procedure   show(str:string);  
          procedure   done();  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.dfm}  
  procedure   tform1.show(str:string);  
  begin  
  edit1.Text   :=str;  
  end;  
   
  procedure   tform1.done   ();  
  begin  
  show('dsdf');  
  end;  
   
  end.

查看回复