出错,access异常?????访问year,即test.GetYear 异常!!!!
为什么???unit Unit2;interfacetype
TTest = Class
private
year,mon,day:integer;
public
constructor Create;overload;
public function GetYear():integer;
end;var
test:TTest;implementation{ TTest }constructor TTest.Create;
begin
year:=1;
mon:=2;
day:=3;
end;function TTest.GetYear: integer;
begin
Result:=year;
end;end.
////////////////////////////////////////////////////////
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;
{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
test:=test.Create;
showmessage(IntToStr(test.GetYear))
end;
end.
为什么???unit Unit2;interfacetype
TTest = Class
private
year,mon,day:integer;
public
constructor Create;overload;
public function GetYear():integer;
end;var
test:TTest;implementation{ TTest }constructor TTest.Create;
begin
year:=1;
mon:=2;
day:=3;
end;function TTest.GetYear: integer;
begin
Result:=year;
end;end.
////////////////////////////////////////////////////////
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;
{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
test:=test.Create;
showmessage(IntToStr(test.GetYear))
end;
end.
解决方案 »
- delphi spcomm控件的ONRECIVE事件中的BUFFERLEN总是1
- 继续召集,感谢关注
- 生日散分帖,下班揭贴
- Delphi自己带的例子,看不明白,请大家指点!顶者有分!!
- Delphi提供的Web开发方法到底哪一种更实用?
- PAGESIZE如何设定?
- 怎样识别图片里的数字(OCR问题),也可以说说原理!
- 请问能不能写一个程序实现Html页面直接与数据库(例如access)通讯,而不需要服务环境
- 用SQL语句创建ACCESS表???!!!
- 音量控制问题
- (续几?不知道,1吧)刚才想散分,不过不能给超过100分。想开多个贴,结果只开了一个,然后荣誉分只有81分了……(10分钟后结贴)
- (续几?不知道)刚才想散分,不过不能给超过100分。想开多个贴,结果只开了一个,然后荣誉分只有81分了……(10分钟后结贴)
test:=Ttest.Create
TTest = Class
private
Fyear,Fmon,Fday: integer;
public
constructor Create;overload;
function GetYear:integer;
function SetYear(Value: Integer):integer;
property year: integer Read GetYear write SetYear;
end;
function SetYear(Value: Integer):integer;
begin
if Value <> FYear then Fyear := Value;
end; //在另一個單元引用,需是Public or Publish