Question

freepascal的class定义

就像c++的class一样
如何才能定义
如：

c++：class sad
公有的： /*不会写*/
int sad() {return x;}
私有的：
int x；
}；
求pascal版
本人必须要pascal，不然就.. s
求大神帮忙

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

TMyDateTime = class
private
fDateTime: TDateTime;
public
function GetDateTime: TDateTime;
constructor Create(ADateTime: TDateTime);
destructor Destroy; override;
end;