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