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) ?

[leddl]

So?

Delphi-Quellcode:

if pos('#color', line) = 1 then
begin
  // Console = TMemo
  if pos('(black)', line) > 0 then
    Console.color := clBlack
  else
    if pos('(marron)', line) > 0 then
      Console.color := clMaroon
    else
      Console.Lines.Add('Ungültiger Parameter');
end;

[Nils_13]

Ähm, nein, dann kann ich color(maroon) nicht mehr benutzen.

[himitsu]

Wieso nicht?



PS:
color(black)abc
oder
colorino(black)
oder
colorino(black)abc

sind nach eurer Abfrage dennoch richtig, wärend z.B.

color(Black)

ein falscher Parameter ist -.-''

[leddl]

Zitat von himitsu:

Wieso nicht?

Frag ich mich auch

Zitat von himitsu:

PS:
color(black)abc
oder
colorino(black)
oder
colorino(black)abc

sind nach eurer Abfrage dennoch richtig, wärend z.B.

color(Black)

ein falscher Parameter ist -.-''

Sag nicht eurer! Ich hab einfach nur seinen Code genommen und dahingehend geändert.

[Nils_13]

Ok, nochmal von vorne: Ich möchte ganz einfach nur, dass alle Befehle, die color(), mit einem zulässigen, von mir vorgegebenen Parameter akzeptiert werden, kein abc dahinter, einfach nur color(farbe).

[Pr0g]

Du solltest die Zeile parsen, so dass du am Ende einen String hast, welcher genau den Wert zwischen der Klammer enthält. Nun kannst du per IdentToColor() den String in den entsprechenden Farbwert umwandeln lassen (denk dran vorher im Code ein "cl" anzufügen, damit der Name den Farbkonstanten von Delphi entspricht). Dabei kannst du direkt prüfen, ob die Funktion den Wert False zurücklieferte, was bedeutet, dass die Farbe ungültig war

[himitsu]

Dann mußt du halt ertmal abfragen, ob color richtig eingegeben ist und dann nochmal die farbe prüfen,

Delphi-Quellcode:

if (copy(line, 1, 6) = 'color(') and (line[length(line)] = ')' then begin
  if copy(line, 7, length(line) - 8) = 'black' then
    Console.color := clBlack 
  else if copy(line, 7, length(line) - 8) = 'maroon' then
    Console.color := clMaroon
  else Console.Lines.Add('Falscher Farbwert'); 
end else Console.Lines.Add('Befehl unbekannt.');

oder du fragst direkt ab

Delphi-Quellcode:

if line = 'color(black)' then
  Console.color := clBlack 
else if line = 'color(maroon)' then
  Console.color := clMaroon
else Console.Lines.Add('Falscher Parameter');

[add]
oder wir Pr0g meint ._.

[mquadrat]

pr0g's Lösung ist wahrscheinlich die passendste..

Ich hätte ja vorgeschlagen, aus dem Eingabestring erstmal Tokens zu machen, dann mit ner Grammatik nen abstrakten Syntaxbaum aufzubauen und den dann zu interpretieren. Aber irgendwie glaub ich, ist das wohl etwas übertrieben

[Nils_13]

@himitsu: Irgendwie funktioniert dein Code bei mir nicht, Unbekannter Befehl.

Delphi-Quellcode:

if Console.Lines[iLine] <> '' then
begin
  Console.Lines.Add('Unbekannter Befehl');
end;