warum arbeiten eigentlich noch soviele mit zeigern wie unter TP5? mach einfach klassen:
Delphi-Quellcode:
type
TChannelBan =
class
private
FNickname:
string;
FNext: PChannelBan;
public
property Nickname:
string read FNickName
write FNickName;
property Next: PChannelBan
read FNext
write FNext;
end;
TChannelBan2 =
class(TChannelBan)
private
FIP:
string;
public
IP:
string read FIP
write FIP;
end;
TChannelBanList =
class(TObject)
private
FChannelBanNode: TChannelBan;
public
function IsBanned(
const ANickname:
string): Boolean;
procedure GetBanList(
var ChannelBanList: TStringList);
procedure Ban(
const ANickname:
string);
procedure Unban(
const ANickname:
string);
end;
Da TChannelBan2 von TChannelBan abgeleitet ist, kann man ein TChannelBan2 an FChannelBanNode zuweisen.