Befehle erstellen

[TonyR]

Lass doch wieder mit POS das nächste Leerzeichen suchen!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
befehl, user, s, reason: string;
begin
S :='/kick k4ni weil er zu viel fragen stellt =)';
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
      begin //edit: der anweisungsblock hier
      user := Copy(s, Pos(' ', s) + 1, Pos(' ', s) - 2);
      reason := Copy(s, Pos(user, s) + 1 + Length(user), Length(s));
      end;
  end;
  ShowMessage(user+' wurde gekickt, reason: '+reason);
end;

Das haut hin, habs getestet ... bzw, funktioniert natürlich nur, wenn die User-Namen keine Leerzeichen enthalten!