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

[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 ._.