RichEdit/Memo hat eine Zeile zu viel

[Pseudemys Nelsoni]

ich hatte schonmal einen thread drüber, finde ihn aber nichtmehr, daher post ich einfach mel neu.(Soweit ich weiss hat in dem thread eh kein tip geholfen :()


ich habe immer eine Zeile mehr als ich Strings habe, wie könnt ich das lösen? die letzte muss weg!

ich hatte das schon mit

Delphi-Quellcode:

RichEdit1.Text := Copy(RichEdit1.Text, 1, Length(RichEdit1.Text)-1);

versucht. Aber das geht nicht

[edit=sakura] Bild im Anhang! Mfg, sakura[/edit]

[s14]

Hast Du es schon mal mit -2 probiert?

[Nightshade]

Zitat:

Zitat von Pseudemys Nelsoni

Delphi-Quellcode:

RichEdit1.Text := Copy(RichEdit1.Text, 1, Length(RichEdit1.Text)-1);

Delphi-Quellcode:

RichEdit1.Text := Copy(RichEdit1.Text, 1, Length(RichEdit1.Text)-2);

CR + LF = 2 Zeichen..

[Pseudemys Nelsoni]

ja, nur gibt es da ein problem, bei:

Delphi-Quellcode:

memo1.Lines.add('hi');
memo1.Text := copy(memo1.Text, 1, length(memo1.Text)-2);

wird nur jedes ZWEITE mal beim buttonclick was in das memo eingetragen, natürlich sollte es bei jedem gehen :(

[s14]

Du must explizit die Zeichen #13 + #10 von hinten her löschen um Fehler zu vermeiden.

[Pseudemys Nelsoni]

von hinten her?

[s14]

Naja die letzten Zeichen halt :mrgreen:

Delphi-Quellcode:

 memo2.Lines.Text := TrimRight(memo2.Lines.Text);

Gruß
s14

[Pseudemys Nelsoni]

:mrgreen:

btw: die letzte zeile verschwindet aber dadurch nicht.

[s14]

hmm, bei mir funktionierts aber so:

Delphi-Quellcode:

  memo1.Lines.Add('bla');
  memo1.Lines.Text := TrimRight(memo1.Lines.Text);

keine Leerzeile am Ende

[scp]

Oder so:

Delphi-Quellcode:

  while Copy(Memo1.Text, length(Memo1.Text)-1, 2) = #13#10 do
    Memo1.Text := TrimRight(Copy(Memo1.Text, 1, length(Memo1.Text) - 2));

Lösch alle Leerzeilen am Ende weg.