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

[Pr0g]

Warum machst du es nicht einfach so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  lInput,
  lValue: String;
  lColor: Integer;
begin
  // Eingabe aus Editfeld holen
  lInput := AnsiLowerCase(Edit1.Text);

  // Befehl prüfen
  if (Pos('#color(', lInput) = 1) and (Pos(')', lInput) > 1) then
  begin
    // Farbwert extrahieren
    lValue := Copy(lInput, 8, Pos(')', lInput) - 8);
    // Farbwert in Delphifarbe umwandeln
    if IdentToColor('cl' + lValue, lColor) then
      Console.Color := lColor
    else
      Console.Lines.Add('Ungültiger Farbwert!');
  end;
end;