我想用一个函数实现将Form1中的Edit1和Edit2的内容连接起来,并将结果返回,我会在别的页面中调用该函数以得到Form1中的这个连接结果,假设函数名为getText,没有任何参数,返回类型为String,书写格式该是怎么样的?在Form1的声明字段中该如何添加该函数的声明?
如果能给出源程序的话更好,多谢了!

解决方案 »

  1.   

    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
      TForm1 = class(TForm)
      private
        { Private declarations }
      public
        { Public declarations }
        function GetText: string;   //add
      end;var
      Form1: TForm1;implementation{$R *.DFM}{ TForm1 }function TForm1.GetText: string;
    begin
      Result := Edit1.Text + Edit2.Text;
    end;end.//在别的单元里use这个单元,就可以调用了
      

  2.   

    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
      TForm1 = class(TForm)
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;
    function GetText:string;implementation{$R *.DFM}function GetText: string;
    begin
      if not Assigned(Form1) then
        Form1:=TForm1.Create(Application);
      Form1.ShowModal;
      Result:= Form1.Edit1.Text + Form1.Edit2.Text;
      FreeAndNil(Forma);
    end;end.