If-Abfrage, die einen Befehl (Console) überprüfen kann ()

[Nils_13]

Hi,

tur mir leid, wenn der Titel etwas unklar formuliert ist, () heißt soviel wie Parameter.

Ich mache gerade bei meiner kleinen Console weiter. Da stoße ich auf folgendes Problem: Ich möchte, dass man die Hintergrund Farbe per color() abändern kann. Aber wenn ich z.B. color(asdhasg) eingebe, ist der Parameter falsch, es tritt zwar kein Fehler auf, aber ich möchte natürlich den Benutzer darauf hinweisen, dass es keine Farbe mit dem Namen asdhasg gibt und dann 'Ungültiger Parameter' mit

Delphi-Quellcode:

// Console = TMemo
Console.Lines.Add('Ungültiger Parameter');

ausgeben, aber das wird sehr schwierig, hier erstmal der Code:

Delphi-Quellcode:

if pos('#color', line) = 1 then
begin
  // Console = TMemo
  if pos('(black)', line) > 0 then
    Console.color := clBlack;
  if pos('(marron)', line) > 0 then
    Console.color := clMaroon;
end;

Um die Frage nochmal ganz klar zu stellen: Wie schmeiße ich dem Benutzer die Meldung 'Ungültiger Parameter' an den Kopf, wenn er weder color(black) eintippt oder color(maroon) ?