Befehle erstellen

[TonyR]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
befehl, user, s: string;
begin
S := '/kick k4ni'; //oder eben 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));  //wenn Befehl "kick" dann schauen, welchen User
  end;
  // ShowMessage('#'+befehl+'#'); hatte ich nur zum debuggen genutzt
  ShowMessage(user);
end;