unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TDate=class;
TForm1 = class;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TDate=class
private
month,day,year:integer;
public
procedure Setvalue(m,d,y:integer);
end;
var
Form1: TForm1;implementation{$R *.dfm}
procedure TDate.Setvalue(m,d,y:integer);
begin
month:=m;
day:=d;
year:=y;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
aday:tdate;
begin
aday.Setvalue(10,10,2001);
end;
end.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TDate=class;
TForm1 = class;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TDate=class
private
month,day,year:integer;
public
procedure Setvalue(m,d,y:integer);
end;
var
Form1: TForm1;implementation{$R *.dfm}
procedure TDate.Setvalue(m,d,y:integer);
begin
month:=m;
day:=d;
year:=y;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
aday:tdate;
begin
aday.Setvalue(10,10,2001);
end;
end.
解决方案 »
- 问个简单问题,怎么添加Webbroser到Form1中
- 散分贴:已经三年没有给老婆过生日,出差在外,老婆生日又要到了,但刚接到公司通知,又要出差,所以想提前给老婆过生日,紧急征取意见
- 简单问题,大家帮忙看看!~
- edit或者maskedit只能限制某个字符的输入,能否像datetimepicker那样限制月份和天?
- 新手请教学习方向的问题。感谢!
- F1book问题~!~!页的添加、删除和复制??100大元~~!~!急
- 急:如何恢复ACCESS数据库
- 过年深圳哪里招聘DELPHI程序员呀?各位大虾不妨说说!
- @@@@@@@@@@@@@@感谢CSDN-Delphi论坛,感谢我的师傅 zswang(伴水)(被黑中) @@@@@@@@@@@@@@@@
- 请版主关注一下http://www.csdn.net/expert/Topic/385/385662.shtm
- 快过年了,守了一年的程序员生涯将随着节日的到来暂时告别,你今年有什么收获?谈谈!!
- 各位仁兄指点一下:在何处可以下载到KYLIX2。0企业版软件??
var
aday:tdate;
begin
aday := tdate.Create;
aday.Setvalue(10,10,2001);
aday.Free ;
end;
ADay := TDate.Create;
所以,你的代码应该修改为:
procedure TForm1.Button1Click(Sender: TObject);
var
ADay: TDate;
begin
ADay := TDate.Create;
ADay.SetValue(10, 10, 2001);
end;
With ADay do
try
ADay.SetValue(1,2,3);
finally
free;
end;