Einzelnen Beitrag anzeigen

Nils_13

Registriert seit: 15. Nov 2004
2.647 Beiträge
 
#1

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

  Alt 16. Mär 2006, 18:30
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) ?
  Mit Zitat antworten Zitat