Danke!
Doch ich will ya noch einen grund angeben.
Also etwa so:
Syntax: /kick <name> <reason>
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
befehl, user, s, reason: string;
begin
S := MSG.text;
if s[1] = '/' then // Prüfen, ob Befehl!
begin
befehl := Copy(s, 2, Pos(' ', s) - 2); //DA IST JETZ NE 2 STATT NER 1
if befehl = 'kick' then
user := Copy(s, Pos(' ', s) + 1, Length(s));
reason := Copy(s, Pos(user, s) + 1, Length(s));
end;
ShowMessage(user+' wurde gekickt, reason: '+reason);
end;
Doch ich kann Ja das ende des namens nichtmehr mit der länge des Strings festlegen weil es jetzt ja weitergeht.
Und die position des reasons fest zu stellen geht glaub auch nicht so wie ich das hab..