如下程序:
type
Class1 = class
procedure prcd1;
public
procedure prcd2;
end;prcd1和prcd2都是类Calss1的方法,放在不同的位置有什么区别?
type
Class1 = class
procedure prcd1;
public
procedure prcd2;
end;prcd1和prcd2都是类Calss1的方法,放在不同的位置有什么区别?
解决方案 »
- 程序内+延时的问题?
- delphi socket 局域网与外网通讯问题 高手帮帮忙
- Delphi2007中ActiveForm在哪里?谢谢
- 想要一组格式后的四位数字,尾数渐增,不足三位前加000。
- 高报酬!高分!有人做过16进制电信话单文件解码吗?我已经有厂家话单格式说明书。
- 很急的简单问题,帮忙
- 建立的报表能不能调用数据模块中的query组件?
- 取得网页地址的问题!
- 如何在一Word模板的固定表格中插入文字,随机定位,紧急求救!
- delphi5从入门到精通这本书如何?电子工业出版社的。
- 请问Delphi7里用什么做报表啊,我好象没有看到以前的报表控件了!(NULL)
- 有写unit单元中有platform,不知是什么意思?
如果是:
Class1 = class
procedure prcd1;
private
procedure prcd2;
public
procedure prcd3;
end;
又怎么讲?
在Delphi里,如果没有指定字段或方法的访问类型,则默认为published。可以做例子看看:
// Unit2.pas
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end; TA = class
function AAA: string;
public
function BBB: string;
published
end;var
Form2: TForm2;implementation{$R *.dfm}{ TA }function TA.AAA: string;
begin
ShowMessage('AAA');
end;function TA.BBB: string;
begin
ShowMessage('BBB');
end;end.
// Unit1.pasunit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit2, 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.Button1Click(Sender: TObject);
var
A: TA;
begin
A := TA.Create;
A.AAA;
FreeAndNil(A);
end;end.
function AAA: string;
public
function BBB: string;
end;相当于
TA = class
published
function AAA: string;
public
function BBB: string;
end;