35 lines
699 B
ObjectPascal
35 lines
699 B
ObjectPascal
unit wObject;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
wRoot;
|
|
|
|
type
|
|
TwObject = class(TwRoot)
|
|
private
|
|
{ Private declarations }
|
|
FCreateDate: string;
|
|
FCreateTime: string;
|
|
FCreatorID: string;
|
|
FIsValid: string;
|
|
protected
|
|
{ Protected declarations }
|
|
public
|
|
{ Public declarations }
|
|
published
|
|
{ Published declarations }
|
|
property CreateDate: string read FCreateDate write FCreateDate;
|
|
property CreateTime: string read FCreateTime write FCreateTime;
|
|
property CreatorID: string read FCreatorID write FCreatorID;
|
|
property IsValid: string read FIsValid write FIsValid;
|
|
end;
|
|
|
|
implementation
|
|
|
|
|
|
|
|
end.
|
|
|