Thema: Delphi Befehle erstellen

Einzelnen Beitrag anzeigen

fLaSh11
(Gast)

n/a Beiträge
 
#5

Re: Befehle erstellen

  Alt 26. Dez 2007, 23:12
Zitat von himitsu:
if copy(Msg.Text, 1, 6) = '/kick ' then begin
name := copy(Msg.Text, 7, ...)
...
end
Nicht zu empfehlen... was ist, wenn der Befehl einmal lauten sollte "/abrakadabra" dann ist nichts mehr mit Copy(Text, 1, 6). 8)

Wenn dann lieber so:

Delphi-Quellcode:
if s[1] = '/then // Prüfen, ob Befehl!
  begin
    befehl := Copy(s, 2, Pos(' ', s) - 1); //dynamisch den Befehl abfragen
    if befehl = 'kickthen
      user := Copy(s, Pos(' ', s) + 1, Length(s)); //wenn Befehl "kick" dann schauen, welchen User
  end;
Das mit dem dynamischen Überprüfen solltest du dir zu Gemüte führen... versteht man nicht auf Anhieb
  Mit Zitat antworten Zitat