如何编写一个Form的自定义函数? 我想用一个函数实现将Form1中的Edit1和Edit2的内容连接起来,并将结果返回,我会在别的页面中调用该函数以得到Form1中的这个连接结果,假设函数名为getText,没有任何参数,返回类型为String,书写格式该是怎么样的?在Form1的声明字段中该如何添加该函数的声明?如果能给出源程序的话更好,多谢了! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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这个单元,就可以调用了 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. delphi idhttp发送http头 关于报表 ■■■■高分求助,如何删除IE缓存中指定格式的文件?■■■ 无聊5.1大派分 送出510分~ 之二 你说这问题怪不怪呀 谁知道瑞星的网上升级密码???? sqlserver 中怎样存入图片,视频 query控件怎么在dbgrid上append一行? 数据库问题,关于dbedit的! windows下的dos应用 这个问题有点儿难,有点儿难! SPCOMM控件
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这个单元,就可以调用了
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.