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.

[Pseudemys Nelsoni]

stimmt, geht *g*, wird das programm dann nich langsam, wenns nachher so 3000 zeilen hat?

[s14]

Das glaube ich nicht, es werden ja nur die letzten Zeichen entfernt.

[Pseudemys Nelsoni]

danke, euch beiden, es geht ^^

Zitat:

Das glaube ich nicht, es werden ja nur die letzten Zeichen entfernt.

jo, aber es wird memo1 doch immer wieder neu der komplette text zugewiesen oder?

[scp]

Zitat:

Zitat von Pseudemys Nelsoni

danke, euch beiden, es geht ^^

Zitat:

Das glaube ich nicht, es werden ja nur die letzten Zeichen entfernt.

jo, aber es wird memo1 doch immer wieder neu der komplette text zugewiesen oder?

Naja, das würde ja nur mehrmals passieren, wenn du 3000 Leerzeilen hättest. :-)

[Pseudemys Nelsoni]

ah ^^ hast recht ;)

hm, muss ich das "while"-ding überall im code wo ich .add benutze mit anhängen? im onchange von einem memo funktioniert das nicht, im RichEdit kommt der Fehler "Fehler beim einfügen von Zeile in RichEdit" oder so :\

[scp]

Hmmm. im OnChange ist das allerdings schlecht, da würde ich das while .. do durch if .. then austauschen, dann macht ers nur einmal.

[Pseudemys Nelsoni]

hm, im memo geht es doch, wieso geht es im richedit nicht? "Fehler beim einfügen von Richedit-Zeile"

gleicher fehler mit if..then.

habe im onchange:

Delphi-Quellcode:

if Copy(Richedit1.Text, length(Richedit1.Text)-1, 2) = #13#10 then
    Richedit1.Text := TrimRight(Copy(Richedit1.Text, 1, length(Richedit1.Text) - 2));

und im button:

Delphi-Quellcode:

richedit1.Lines.Add('hi');

:\

[Pseudemys Nelsoni]

wwieso kann man im OnChange des richedits selbigem keine neue line zuweisen?

nichtmal das: Richedit1.lines.add('bla); geht im OnChange O_o. gibt es eine onchange alternative?

[scp]

Hab eben rumprobiert. aber da bin ich auch überfragt. Hab versucht Onchange zeitweise auf nil zu setzen, aber da kam dasselbe raus.

[Pseudemys Nelsoni]

schade:(, aber danke :thuimb: