thx edancer werde das mal versuchen, zuvor noch eins...ich erhalte immer einen fehler:
http://www.united-coding.de/fehler.jpg
der code an dem ganzen ist:
Delphi-Quellcode:
procedure TForm1.IdIRC1Raw(Sender: TObject; AUser: TIdIRCUser; ACommand,
AContent: String; var Suppress: Boolean);
var
Mode, Nick: string;
Counter: integer;
bmp: TBitmap;
begin
Mode := Copy(acontent, 14, 2); // Nick aus "acontent" auslesen
Nick := Copy(acontent, LastDelimiter(' ' , acontent)+1, length(acontent)); // Mode aus "acontent" auslesen
if Mode = '+a' then // Wenn mode "+a" ist
begin
for Counter := 0 to Listbox1.Items.IndexOf(Nick) do
begin
sl2.Delete(Counter); // Stringlist(sl2) löschen
sl1.AddObject(Nick, image10.Picture.Bitmap); // String "Nick" mit Bild zur Stringlist(sl1) hinzufügen
listbox1.Clear; // Listbox1 Strings löschen
listbox1.Items.AddStrings(sl1); // Strings aus Stringlist(sl1) der Listbox1 hinzufügen
listbox1.Items.AddStrings(sl2); // Strings aus Stringlist(sl2) der Listbox1 hinzufügen
end;
end;
if Mode = '-a' then // Wenn mode "-a" ist
begin
for Counter := 0 to listbox1.Items.IndexOf(Nick) do
begin
sl1.Delete(Counter); // Stringlist(sl1) löschen
sl2.AddObject(Nick, image11.Picture.Bitmap); // String "Nick" mit Bild zur Stringlist(sl2) hinzufügen
listbox1.Clear; // Listbox1 Strings löschen
listbox1.Items.AddStrings(sl1); // Strings aus Stringlist(sl1) der Listbox1 hinzufügen
listbox1.Items.AddStrings(sl2); // Strings aus Stringlist(sl2) der Listbox1 hinzufügen
end;
end;
end;
woher kommt dann der fehler?
gruss silent