Class TNetID (unit Netuser2) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- Public declarations
procedure Loaded;
procedure SetID(UserId: string);
======================================================================
procedure SetName(UserName : String);
======================================================================
procedure SetStationNumber(StationNumber: byte);
======================================================================} { Set my logical Station(connection)-Number
property StationNumber : byte
Published declarations
property UserID : string
property UserName : string
FDummy : String;
FStationNum : byte;
Private declarations
FUserID : String;
FUserName : String;
constructor Create(AOwner: TComponent);
Public declarations
procedure Loaded;
procedure SetID(UserId: string);
======================================================================
procedure SetName(UserName : String);
======================================================================
procedure SetStationNumber(StationNumber: byte);
======================================================================} { Set my logical Station(connection)-Number
property StationNumber : byte
Published declarations
property UserID : string
property UserName : string
FDummy : String;
FStationNum : byte;
Private declarations
FUserID : String;
FUserName : String;