Unnötige Zeilenumbrücke löschen?

[mo_greene]

Hallo,

ich benutze ein Memo Feld, welchem nach Ausführen des Programms immer ein Zeilenumbruch angefügt wird, d.h. es entsteht immer eine leere unnötige Zeile.

Wie kann ich diese entfernen?

liebste grüße & danke :)

[DeddyH]

Delphi-Quellcode:

if Memo.Lines.Count > 0 then
  Memo.Lines.Delete(Pred(Memo.Lines.Count));

[Namenloser]

Vielleicht sollte man trotzdem zur Sicherheit noch prüfen, ob die Zeile wirklich leer ist.

Delphi-Quellcode:

if Memo.Lines.Count > 0 then
  if Memo.Lines.Last='' then
    Memo.Lines.Delete(Pred(Memo.Lines.Count));

[SirThornberry]

wäre es nicht sinnvoller die Zeile nur einzufügen wenn die vorherige nicht auch schon eine Leerzeile ist?

[mo_greene]

Delphi-Quellcode:

repeat
  if GeheimtextMmo.Lines.Count > 1 then
    if GeheimtextMmo.Lines.Strings[GeheimtextMmo.Lines.Count] = '' then
      GeheimtextMmo.Lines.Delete(Pred(GeheimtextMmo.Lines.Count))
  else
    break;
until GeheimtextMmo.Lines.Strings[GeheimtextMmo.Lines.Count] [b]<> ''[/b];

Irgendwie merkt er nicht, dass er bei <> '' die Schleife beenden soll...woran liegt das? Die repeat...until-Schleife läuft unendlich weiter, dabei soll er aufhören, wenn die Zeile wieder etwas enthält.

[DeddyH]

Delphi-Quellcode:

while Length(GeheimtextMmo.Lines[GeheimtextMmo.Lines.Count - 1]) = 0 do
  GeheimtextMmo.Lines.Delete(GeheimtextMmo.Lines.Count - 1);

Ungetestet, aber ich finde hier eine Kopfschleife angebrachter.

P.S.: Die letzte Zeile hat den Index Lines.Count - 1

[Apollonius]

Die meisten Arrays, und alle Listen, werden in Delphi mit Null-basierten Indices angesprochen. Das heißt, dass das erste Element den Index 0 hat, und folglich das letzte Element den Index Count-1. Eigentlich sollte in deinem Code eine Exception "Listenindex überschreitet das Maximum" kommen.

[Blackheart]

Was ist mit Trim...

[monta]

wenn es wirklich nur die letzte Zeile ist, wieso nicht einfach ein Trim(Memo.Text) und gut ist.

[mo_greene]

Zitat:

Zitat von DeddyH

Delphi-Quellcode:

while Length(GeheimtextMmo.Lines[GeheimtextMmo.Lines.Count - 1]) = 0 do
  GeheimtextMmo.Lines.Delete(GeheimtextMmo.Lines.Count - 1);

Ungetestet, aber ich finde hier eine Kopfschleife angebrachter.

P.S.: Die letzte Zeile hat den Index Lines.Count - 1

wird bei 'length' ein Leerzeichen nicht auch mitberechnet?