Hexadezimal Farben als Hintergrund

[Medium]

Für künftige Fragen in Foren:

Zitat von iHanns:

Ich bekomme die gleiche Fehlermeldung

Welche? Bis zu diesem Punkt war im Thread nie eine genannt. Fehlermeldungen bitte immer angeben, und zwar den genauen Wortlaut.
Zudem: An welcher Stelle? Die Fehlermeldung alleine ist zwar schon ein Fortschritt, man kann dir aber viel besser helfen, wenn du dazu angibst zu welcher Zeile und welchem Zeichen die Meldung gehört. (Hier war es dem Kontext recht einfach zu entnehmen, aber gerade wenn man einen neuen Thread erstellt gibt es noch keinen. Den bitte dann auch schaffen )
Zuguterletzt: Quellcode sollte in [ delphi] [ /delphi]-Tags (ohne Leerzeichen) verpackt werden. Dann wird der wie im Delphi Editor formatiert, und erheblich leichter lesbar. Vor allem wenn der Code dann noch Styleguidekonform eingerückt ist.
An deinem Beispiel:

Delphi-Quellcode:

procedure TFenster.Button1Click(Sender: TObject);
var
  a, s: integer;
  Zeichen: string;
begin
  s := 1;
  for s := 1 to length(edit1.Text) do
  begin
    Zeichen := Edit1.Text[s];
    if Zeichen = 'A' then
      Zeichen.Font.Color:=StringToColor('$FFFF00')
    else
      Zeichen.Font.Color:=StringToColor('$00FF00');
  end;
end;

[Furtbichler]

Zitat von Medium:

Vor allem wenn der Code dann noch Styleguidekonform eingerückt ist.

Das ist zu Viel des Guten, denn mein Code ist nicht (ganz) Styleguide-konform.

Ja ja. Aber fast.

Wollte halt auch mal was sagen.

[Bummi]

Aus der Frage scheint mir auch nicht ersichtlich was das Ziel sein soll

etwas in der Art?

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  If Pos('A', Edit1.Text) > 0 then
    Edit1.Font.Color := $FFFF00
  else
    Edit1.Font.Color := $00FF00;
end;

oder eher so etwas?

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to Length(StringReplace(RichEdit1.Text, #13, '', [rfReplaceAll]))
    - 1 do
  begin
    RichEdit1.SelStart := i;
    RichEdit1.Sellength := 1;
    if RichEdit1.SelText[1] = 'A' then
      RichEdit1.SelAttributes.Color := $FFFF00
    else
      RichEdit1.SelAttributes.Color := $00FF00
  end;
end;