unit Unit1;interface
procedure one;
procedure two;
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;implementation{$R *.dfm}procedure tform1.two;
begin
button1.caption:='你好吗?';
end;procedure tform1.one;
begin
two;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
one;
end;end.
请问我的上面的两个过程声明的位置对吗?为什么?
另外,别人给我解决了问题我怎么去揭贴呀?????
很多人都给我提示了呀我好急呀?
别人解答了我的问题是应该得到报酬的呀?
procedure one;
procedure two;
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;implementation{$R *.dfm}procedure tform1.two;
begin
button1.caption:='你好吗?';
end;procedure tform1.one;
begin
two;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
one;
end;end.
请问我的上面的两个过程声明的位置对吗?为什么?
另外,别人给我解决了问题我怎么去揭贴呀?????
很多人都给我提示了呀我好急呀?
别人解答了我的问题是应该得到报酬的呀?
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure one;
procedure two;
//这样更好,别的单元不能访问他的变量,属于私有的,你先去看看组件的编写,然后看看oop,就可以理解了,具体的delphi5开发人员指南上边写的也很清楚的,或者直接看delphi的vcl源代码
public
{ Public declarations }
end;