hab nurn geändert, sieht so aus:
Delphi-Quellcode:
procedure TForm1.IdIRC1Raw(Sender: TObject; AUser: TIdIRCUser; ACommand,
AContent: String; var Suppress: Boolean);
var s, zeichen, nick: string;
begin
s := acontent;
repeat
delete(s, 1, 1)
until s[1] = ':';
delete(s, 1, 1);
repeat
zeichen := Copy(s, 1, 1);
nick := nick + zeichen;
while s[1] <> ' ' do
delete(s, 1, 1);
until s = '';
end;
funzt aber noch immer nicht das prog friert ein
es liegt 100% an dem code, weil wenn ich den lösche klappts
ist doch alles richtig oder nicht?
gruss silent