idIRC OnBan

[Pseudemys Nelsoni]

wenn ich es so habe:

Delphi-Quellcode:

procedure Tdlg1.tscBan(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel; AHostmask: String);
var
  i: integer;
  s: string;
begin
  for i := 0 to dlg11.ListBox1.Items.Count-1 do
  begin
    s := dlg11.ListBox1.Items.Strings[i];
    if tsc.MatchHostmask(PChar(s), PChar(ahostmask)) then
  dlg11.Memo1.Lines.Add('::: ' + auser.Nick + ' sets ban on ' + s);
  end;
end;

funzt es nicht