idIRC OnBan

[Pseudemys Nelsoni]

danke

klappt jetzt so:

Delphi-Quellcode:

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