Du könntest eine Befehlsliste verwenden:
Delphi-Quellcode:
var
CommandList: TStringList;
begin
CommandList := TStringList.Create;
with CommandList do
begin
Sorted := true;
CaseSensitive := false;
Add('#exit');
Add('#pause');
// ...
end;
end;
Und später dann prüfst du so:
Delphi-Quellcode:
if CommandList.IndexOf(command) >= 0
then // gültiger Befehl
else // ungültiger Befehl
;
marabu