Befehle erstellen

[Dax]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
befehl, user, s: string;
const befehlOffset = 2; // erstes zeichen eines befehls
begin
S := Msg.Text;
if s[1] = '/' then  // Prüfen, ob Befehl!
  begin
    befehl := Copy(s, befehlOffset, Pos(' ', s) - befehlOffset);  //dynamisch den Befehl abfragen
    if befehl = 'kick' then
      user := Copy(s, Pos(' ', s) + 1, Length(s));  //wenn Befehl "kick" dann schauen, welchen User
  end;
  ShowMessage(user);
end;