106
FIP : String;
// Канал;
FChannel : TDSTCPChannel;
// Код пользователя;
FUserKey : Integer;
//
FUserTypeKey : Integer;
public
// Конструктор класса;
constructor Create (Key : Integer);
// Деструктор класса;
destructor Destroy; overload;
property Key : Integer read FKey;
property DateTime : TDateTime read FDateTime;
property IP : String read FIP write FIP;
property Channel : TDSTCPChannel read FChannel write FChannel;
property UserKey : Integer read FUserKey write FUserKey;
property UserTypeKey : Integer read FUserTypeKey write FUserTypeKey;
end;
implementation
constructor TConnectionInfo.Create (Key : Integer);
begin
//
inherited Create;
FKey := Key;
FDateTime := Now;
FUserKey := 0;
107
end;
destructor TConnectionInfo.Destroy;
begin
//
inherited Destroy;
end;
end.
