hallo christian, danke für die antwort !
hab das geändert in:
Delphi-Quellcode:
procedure TForm1.IdIRC1Raw(Sender: TObject; AUser: TIdIRCUser; ACommand,
AContent: String; var Suppress: Boolean);
var
Mode, Nick: string;
Counter: integer;
begin
Mode := Copy(acontent, 14, 2);
Nick := Copy(acontent, LastDelimiter(' ' , acontent)+1, length(acontent));
if Mode = '+a' then
begin
for Counter := 0 to Listbox1.Items.IndexOf(Nick) do
begin
sl2.Delete(Counter);
sl1.AddObject(Nick, image10.Picture.Bitmap);
listbox1.Clear;
listbox1.Items.AddStrings(sl1);
listbox1.Items.AddStrings(sl2);
end;
end;
if Mode = '-a' then
begin
for Counter := 0 to listbox1.Items.IndexOf(Nick) do
begin
sl1.Delete(Counter);
sl2.AddObject(Nick, image11.Picture.Bitmap);
listbox1.Clear;
listbox1.Items.AddStrings(sl1);
listbox1.Items.AddStrings(sl2);
end;
end;
end;
geht aber noch immer nicht...also is bisschen schwer zu sehen was das sein soll....also es geht darum das ich beim dem mode "+a"(Admin)
den Nick aus der TStringlist2(Reg User) in die TStringList1(Admins) tue und von da aus in die Stringlist. Die Admins haben ein object(kleines bildchen) vor dem nick wenn ich aber "-a" mache passiert irgendwie gar nichtsalso user hat immer noch das object vor dem nick und is auch noch immer in StringList1.
"for Counter := 0 to listbox1.Items.IndexOf(Nick) do" müsste es hinten vielleicht heissen IndexOfObject? (habs schon probiert geht aber auch nicht. Reicht es überhaupt wenn ich den String aus der listbox lösche oder muss man auch das object davor extra löschen?
gruss mario