Summenzeichen (Σ) in Courier in TRichEdit anzeigen

[marcibaer]

Hallo zusammen!

Irgendwie stehe ich auf dem Schlauch!
Ich probiere nun Folgendes, um das Summenzeichen (als "°S" kodiert) anzuzeigen, aber es klappt nicht:

Delphi-Quellcode:

      with Memo1 do
        begin
          Lines := Eintraege;
          with Lines do
            for i := 0 to Count - 1 do
              begin
                Start := 1;
                repeat
                  o := PosEx('°S',Lines[i],Start);
                  if (o > 0) then
                    begin
                      Start := o;
                      Eintrag := Lines[i];
                      System.Delete(Eintrag,o,1);
                      Lines[i] := Eintrag;
                      SelStart := o;
                      SelLength := 1;
                      SelAttributes.Name := 'Symbol';
                    end;
                until (o = 0);
              end;
        end;

Eintraege ist die StringList, in der ich die Ausgabe anlege.
Seltsamerweise werden, wenn ich z.B. SelLength = 10 habe, einige Zeichen in den oberen Zeilen umgewandelt, obwohl das Summenzeichen erst ca. 50 Zeilen später auftaucht!

Ich hoffe, das sagt Euch etwas...

Vielen Dank!

[Aphton]

Ja klar, weil o relativ zum Zeileanfang ist, jedoch SelStart nen absoluten Wert verlangt...
Hau die For i Schleife raus und arbeite mit Lines.Text..
(Da man dieses Property nicht einfach wie ein String behandeln kann, wäre es angebracht, den Inhalt zuerst in ne temp. String Variable zu kopieren...)