letzten linebreak aus tstrings (trichedit.lines) entfernen

[DrUArn]

Hi,

Kommando zurück, so funktioniert's nur bei einzeiligen Texten. Bei trichedit muß man ja auch mit den als 1 gezählten Zeilenvorschüben kämpfen.
Für Operationen am Ende eines Textes ist das aber einfach:

Delphi-Quellcode:

procedure deletelastlinebreakOhneTextNeu;//funktioniert nicht
begin

if length(richedit1.text>1 then //sicher ist sicher, wer weiß, was passiert, wenn da '' oder nur 'a' steht, ich denke aber, auch bei einem Leerstring passiert 
                                //nichts ; 
   //oder auch so: if strend(pchar(text)-1))^ in [#13#10] then - was ist besser? -1 nur, da bei -2 und wenn am Ende kein #13#10 mehr auch steht, greift man in die 
                                                      bei kurzen Zeilen aufden Zeilenvorschub der vorhergehenden Zeile und löscht diese gleich mit
if RichEdit1.text[length(richedit1.text)-length(richedit1.lines.linebreak)+1] in [#13,#10] //das sieht ganz schön umständlich aus,
                                                                                         //+1 muß sein, da ein String bei 1 Anfängt zu zählen?
then
 with richedit1 do
   begin
{--->} selstart:=length(text)-length(lines.linebreak)-(lines.Count-1);//selstart steht jetzt vor #13, die Anzahl der Zeilenvorschübe muß mit eingerechnet
                                                                      //werden je als 1
      sellength:=length(lines.linebreak);//sellength markiert #13#10
      clearselection //weg damit
  end
end;

Grüße
Uwe

[himitsu]

Warum nicht einfach die Befehle benutzen, welche am Anfang schon genannt wurden?
> Text auslesen und das Ende entfernen.


Du darfst gern meinen vor Jahren bei Emba (QC) eingereichten Bugreport (samt Lösungsvorschlägen) raussuchen.
Die "aktuell" genutzte RichText-Komponente (von Microsoft) arbeitet erschreckender Weise mit #13 und die von Codegear/Embarcadero waren so doof, daß sie nur die Hälfte versucht hatten auf die #13#10 umzusetzen ... leider nur die Hälfte und da ist nicht SelStart/SelLength dabei.

Ich hab aufgegeben und werde garantiert zu 99,8% nicht mehr miterleben, wie die VCL hier jemals repariert wird.
Mein anderer Vorschlag war, wenn sie es nicht schaffen, dann sollen sie den Quatsch (die halbherzige Umwandlung) einfach wieder ausbauen ... lieber "falsche" Zeilenumbrüche, alt soein Dreck.

PS: Bevor du dich freust, daß es ja nun was Neueres gibt, aber das FMX-Memo hat mit den Zeilenumbrüchen ebenfalls Probleme, wie ich gestern mitbekommen hab.

[DrUArn]

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

[himitsu]

Hmmm, dann gäbe es natürlich noch BeginUpdate.

[DrUArn]

Hi, himitsu

da stehe ich gerade auf dem Schlauch.

BeginUpdate EndUpdate von tstrings ...

meinst du, daß ich die Neudarstellung von lines irgendwie stoppen kann, und erst wenn alles fertig, wieder auf den Schirm werfen?


Grüße
Uwe

[Perlsau]

Dann schau dir doch mal die Online-Hilfe zu BeginUpdate und EndUpdate an und lies, was dort steht.

mann mann ...

[DrUArn]

Hi, comm,

@ mann mann ... : natürlich schaue ich mir die Hilfen an. Aber nicht jeder versteht wie du alles sofort ....

In den Beispielen der Hilfe finde ich:

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
I: Integer;
begin
with ComboBox1 do
begin
Items.BeginUpdate; { Prevent repaints until done. }
....

Items.EndUpdate; {Reenable painting. }
end;
end;

Von meinem Verständnis: Teile ich der Liste mit, daß ich was ändern will (BeginUpdate), stellt sie sich solange nicht neu dar, bis ich mitteile, daß ich fertig bin (EndUpdate).

Delphi-Quellcode:

Procedure Test;
begin
RichEdit1.Lines.BeginUpdate;
RichEdit1.Clear;
i:=strtoint(editintegerpanel_ua1.ei.text);
for i := 0 to 1000 do TestRich1.Lines.Add(IntToStr(i));
RichEdit1.Lines.EndUpdate;
end;

In dem Beispiel wird aber mit jedem neuen Listeneintrag auch neu dargestellt, also die Liste hochgescrollt, bis der 1000ste Eintrag erreicht wird.

Damit nützt mir das BeginUpdate - EndUpdate hier nichts - keine Unterdrückung der Neudarstellung.

Aber auch LockWindowUpdate(richedit1.Handle) hilft da nicht.


Gruß uwe