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