Frag mal Robert_G, aber das ist schon mal etwas "schöner" und manchmal auch effizienter (wenn statt records nur Pointer umhergeschoben werden)
Delphi-Quellcode:
TUserDB =
class
published
property UIN: Cardinal
read FBlaBlaBa
write FBlaBlaBla;
property Nick : ShortString
read FBlaBlaBa
write FBlaBlaBla;
property ItemID : HTreeItem
read FBlaBlaBa
write FBlaBlaBla;
property UserID : Word
read FBlaBlaBa
write FBlaBlaBla;
property FormIndex : Integer
read FBlaBlaBa
write FBlaBlaBla;
property Msg :
String read FBlaBlaBa
write FBlaBlaBla;
property Status : Cardinal
read FBlaBlaBa
write FBlaBlaBla;
{ -- Hint Infos -- }
Port : Word;
property InternalIP :
String[15]
read FBlaBlaBa
write FBlaBlaBla;
// TCP/IP v6 wird noch nicht unterstützt
property ExternalIP :
String[15]
read FBlaBlaBa
write FBlaBlaBla;
// TCP/IP v6 wird noch nicht unterstützt
property OnlineTime : TDateTime;
read FBlaBlaBa
write FBlaBlaBla;
property Idle : Word
read FBlaBlaBa
write FBlaBlaBla;
end;
Dann noch mit einer Typed ObjectList (CodeLib) oder vielleicht auch der DPCollection
(auch wenn ich noch nicht ganz weis, was das ist ) ist das ganze schon viel schöner und besser erweiterbar