Hhi, Himitsu,
ja, Du hast recht.
Am einfachsten wäre schon Dein Vorschlag:
Delphi-Quellcode:
Procedure DeletelastLinebreak;
var s.string;
begin
//text:=trimright(RichEdit1.text);geht nicht
s:=richedit1.text;
text:=trimright(s);
text:=s
end;
aber, in meinem Richedit werden sehr viele Abfragen für die Darstellung gebraucht, die ich dann wieder neu aufrufen müßte;
Delphi-Quellcode:
//Richedit1.Text:=' {123} {456} '#13#10'{789}'
//wenn man mit lines.append arbeit entsteht zum Schluß' {123} {456} '#13#10'{789}'#13#10
Procedure prepareText
begin
//hier soll '{' rot, '}' gelb, die Texte dazwischen wenn Zahl blau, wenn Text grün eingefärbt werden
//also sellstart vor erstes'{', sellength:=1; Farbe,
//selstart nach erstem '{', Textlänge zwischen erstem '{' und erstem '}' ermitteln,
//(und dabei berücksichtigen, daß in diesem Text auch linebreaks sein könnten)
//prüfen, ob dieser Text eine Zahl oder ein Text ist, sellength setzen und färben
//sellstart vor erstes'}', sellength:=1; Farbe,
//und das alles für alle Klammern{...}
//um das zu bewerkstelligen, mußte ich eine Zugriffsmethode auf Text schreiben, die mir das richtige Selstart und das richtige Sellength zurückgibt
//geht ja nicht mit pos o.ä., sondern man muß immer aufpassen, wieviele linebreaks in Richedit1.text und dann auch noch in dem Text zwischen den Klammern versteckt sind, die man mit 1 berücksichtigen muß
//aber ich hab's gelöst (auch wenn mir die Funktion dazu umständlich aussieht), und verstehe deinen Unmut über #13 und #13#10
end;
Procedure Settext;
begin
for i:=0 to 100 //oder mehr
richedit1.lines.add('{'+inttostr(i)+'}')
preparetext;
deletelastlinebreak; //Farben wieder weg
preparetext//alles wieder gut
end;
procedure addstring;
begin
lines.add(('{'+'irgendein Text+'}')
prepareneuenEintrag//nicht den ganzen Text
//aber, falls wieder ein linebreak hinten dranhängt
deletelastlinebreak; //Farben wieder weg
preparetext//alles wieder gut
end;
Wenn addstring dann oft ausgeführt wird, muß deletelastlinebreak und preparetext immer wieder durchlaufen werden.
Darum mein Versuch, eben nur den letzten linebreak wegzulöschen.
Oder man garantiert, daß nach dem ersten Eintrag nie wieder ein linebreak angehängt wird
Delphi-Quellcode:
procedure addstring2;
begin
lines.add(('{'+'irgendein Text+'}')
if lines.count=1 //erster Eintrag
then begin deletelastlinebreak;preparetext end
else
prepareneuenEintrag//es dürfte hier eigentlich kein neuer linebreak angehängt worden sein, daß macht richedit wohl nur berim ersten Eintrag,
//wenn man den wglöscht, wird kein neuer erzeugt
end;
Grüße Uwe