Einzelne Buchstaben eines Edit Feldes färben

[holle]

Ich möchte gerne in einem Editfeld einzelne Buchstaben durch einen anderen ersetzen und zudem den neuen Buchstaben rot einfärben.
Das Suchen und Ersetzen ist kein problem (StrinRplace). Nur wie kann ich einzelne Zeichen einfärben?

Thanx holle.

[Luckie]

Mit einem TEdit gar nicht, das geht nur mit eine TRichEdit. Und wie das mit einem TRichEdit geht, findest du hier im Forum.

[holle]

ok hab jetz ein richedit. mit dem rotfärben der buchstaben funktioniert auch schon. aber: ich kann nur den ersten buchstaben rot färben, danach hört die suche auf.

hier mein quelltext

Delphi-Quellcode:

  edtText.SelStart:=pos('e', edtText.text)-1;
  edtText.SelLength:=1;
  edtText.SelAttributes.Color:=clRed;

ich hab schon verschiedene schleifen ausprobiert, aber keine lösung gefunden. posEx funktioniert bei mir auch nicht. hab ihr vielleicht einen vorschlag?

mfg holle

[himitsu]

Ist auch richtig so, denn Pos findet immer nur das erste Vorkommen des gesuchten Strings.

Schau dir mal PosEx an, dort kannst du einen Index angeben, ab welchem gesucht werden soll ;)

[holle]

ja nur posEx funzt bei mir nicht (delphi 6)...

[himitsu]

Das ist mir wohl bekannt ^^

Aber dafür gibt es genug ErsatzCodes im Forum ... z.B. die beiden folgenden Threads.


Alternative zu PosEx und Insert

Und in der CodeLib noch was von mir ;)
(Teil)String in anderem String suchen/zählen