Also ich benutze jetzt folgenden Code:
Delphi-Quellcode:
var
iLine : Integer;
Line : String;
lInput, lValue: String;
lColor: Integer;
begin
// ...
lInput := AnsiLowerCase(Line);
if (Pos('#color(', lInput) = 1) and (Pos(')', lInput) > 1) then
begin
lValue := Copy(lInput, 8, Pos(')', lInput) - 8);
if IdentToColor('cl' + lValue, lColor) then
Console.Color := lColor
else
Console.Lines.Add('Ungültiger Parameter');
end;
// ...
Die Farbe wird mir dem Befehl #color(maroon) abgeändert, allerdings wird später leider noch folgender Code aktiv:
Delphi-Quellcode:
if Console.Lines[iLine] <> '' then
begin
Console.Lines.Add('Unbekannter Befehl');
end;
Wie kann ich umgehen, dass nach der Abänderung der Farbe 'Unbekannter Befehl' noch in das Memo hinzugefügt wird ?
Ich möchte mich ganz herzlich bei euch allen bedanken, da ihr mir sehr bei dem Problem weitergeholfen habt, das Problem ist dann so ziemlich gelöst, danke für alles !!