Delphi-Quellcode:
procedure TForm1.IdIRC1Raw(Sender: TObject; AUser: TIdIRCUser; ACommand,
AContent: String; var Suppress: Boolean);
var
s: string;
i: integer;
begin
acontent := copy(acontent,LastDelimiter(' ', acontent)+1, length(acontent));
if POS('+a', acontent) > 0 then
begin
for i := 0 to listbox1.Items.IndexOf(acontent) do
begin
sl1.AddObject(acontent, image10.Picture.Bitmap);
sl2.Delete(i);
listbox1.Clear;
listbox1.Items.AddStrings(sl1);
listbox1.Items.AddStrings(sl2);
end;
end;
if POS('-a', acontent) > 0 then
memo1.Lines.Add('jo');
end;
das 1. funzt wunderbar, aber das:
"if POS('-a', acontent) > 0 then
memo1.Lines.Add('jo');"
nicht, obwohl bei einem event "-a" vorkommt, wenn ich den ganzen oberen teil lösche und nur das
"if POS('-a', acontent) > 0 then
memo1.Lines.Add('jo');"
nehme gehts. Ist da was falsch dran?
btw: sl1 und sl2 sind zwei globale Stringlists
edit: color geht wohl nicht in nem delphiquote... lass es aber drin damit man weiss was gemeint is
gruss