在窗体的代码里定义了2个过程和函数,在该窗体里该如何调用? ~~在线等(20分)

  • 主题发起人 主题发起人 carrie4002
  • 开始时间 开始时间
C

carrie4002

Unregistered / Unconfirmed
GUEST, unregistred user!
在窗体的代码里定义了2个过程和函数,
procedure Conn; //连接过程
Function ReadData():Double; //读数函数
那,
1、该如何在private中定义它们?在该窗体里其它过程里,该如何调用它们?
2、如果是别的窗体要调用它们,又该如何做?
 
ctrl+shift+c
 
什么意思?
 
看看书吧 
呵呵
 
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure Button1Click(Sender: TObject);
private
//定义
function test(str1, str2: string): string;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
//函数
function tform1.test(str1,str2:string):string ;
begin
result:=str1+str2;
end;

//调用函数
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text:=test(Edit1.Text,Edit2.Text);
end;

end.
 
1.靠,调用函数都不会,那你怎么会写函数呢???不解中....
2.如果是其他窗体要调用,则不能放在private中,应放在public中
 
直接用就可以了呀
 
szmh的代码是对的。注意,一定要在实现代码里写上窗体名做前缀。
 
多人接受答案了。
 
后退
顶部