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!