Class TNetID (unit Netuser2)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

procedure Loaded;


procedure SetID(UserId: string);

======================================================================

procedure SetName(UserName : String);

======================================================================

procedure SetStationNumber(StationNumber: byte);

======================================================================} { Set my logical Station(connection)-Number

Properties

property StationNumber : byte

Published declarations

property UserID : string


property UserName : string


Events

Variables

FDummy : String;


FStationNum : byte;

Private declarations

FUserID : String;


FUserName : String;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


procedure Loaded;


procedure SetID(UserId: string);

======================================================================


procedure SetName(UserName : String);

======================================================================


procedure SetStationNumber(StationNumber: byte);

======================================================================} { Set my logical Station(connection)-Number


Properties


property StationNumber : byte

Published declarations


property UserID : string


property UserName : string


Events


Variables


FDummy : String;


FStationNum : byte;

Private declarations


FUserID : String;


FUserName : String;