Verkette Liste mit verschiedenen records/objekten

[bttb930]

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.