Memo zeilen Löschen

[MaBuSE]

Zitat von turboPASCAL:

Memo1.Lines.Delete( Index ); Also für die ersten 4 Zeilen:

Delphi-Quellcode:

Memo1.Lines.Delete(0);
...
Memo1.Lines.Delete(3);

bzw

Zitat von Hansa:

Delphi-Quellcode:

...
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Delete(0);
  Memo1.Lines.Delete(1);
end;
...

Ich finde es "lustig", dass immer wieder dieser "Anfängerfehler" gemacht wird.

Wenn die 1. Zeile gelöscht wird, dann "rückt" der andere Text nach.
In der 1. Zeile steht nun die 2. Zeile (Die 1. ist ja gelöscht worden)
Wenn man nun die 2. Zeile löscht, wird ja die 3. Zeile entfernt (Die nun an 2. Stelle steht).
Es muss also noch mal die 1. Zeile gelöscht werden.

Martin hat es richtig gemacht:

Zitat von Martin K:

Was hältst du davon:

Delphi-Quellcode:

var i,j: Integer;  //j: die ersten j Zeilen löschen
begin
  For i:=1 to j do
  Memo1.Lines.Delete(0);
end;

Wenn Memo1.Lines.Delete(0); 4 mal aufgerufen wird, sind die ersten 4 Zeilen gelöscht.

Alternativ könnte man auch von hinten nach vorne löschen, dann kann man durchaus auf die Einzelnen Zeilen zugreifen, da dann das "nachrücken" ohne Belang ist.

Delphi-Quellcode:

...
Memo1.Lines.Delete(3);
Memo1.Lines.Delete(2);
Memo1.Lines.Delete(1);
Memo1.Lines.Delete(0);
...

oder

Delphi-Quellcode:

...
for i downto 3 to 0 do
  Memo1.Lines.Delete(i);
...

Ich bevorzuge aber den Lösungsansatz von Martin.

[MaBuSE]

Zitat von Sharky:

Bei deinem Code wird die erste und dritte Zeile im Memo gelöscht.
Nach dem aufruf von .Delete(0) wird die erste Zeile gelöscht und alle anderen rücken eins nach oben. Dann wird durch .Delete(1) die zweite Zeile gelöscht welche zuvor ja die dritte war.

Code:

_        .Lines.Delete(0)            .Lindes.Delete(1)  
eins                         zwei                         drei
zwei                         drei                         vier
drei                         vier                         fünf
vier                         fünf
fünf

Hallo Sharky,
Ich habe gar nicht gesehen, das Du auch das angesprochen hast
Aber Du wolltest wohl das schreiben:

Code:

_        .Lines.Delete(0)            .Lines.Delete(1)  
eins                         zwei                         [b]zwei[/b]
zwei                         drei                         vier
drei                         vier                         fünf
vier                         fünf
fünf

[Sharky]

Zitat von MaBuSE:

... Aber Du wolltest wohl das schreiben:

Naja, es ist früh und ich habe erst einee halbe Tasse Kaffee in mir. (Danke für den Hinweiss)

[Hansa]

Zitat von MaBuSE:

Ich finde es "lustig", dass immer wieder dieser "Anfängerfehler" gemacht wird.

Lustig ? Entetzlich. Mein Memo hat jedenfalls immer 2 Zeilen am Anfang weniger angezeigt. Welche war mir dabei egal. 8) Aber Mabuse hat natürlich vollkommen Recht. Werde mir das merken, denn wer weiß, ob man nicht mal selber konkret "Memo zeilen Löschen" muß. 8)

[Bernd29bln]

Hallo @All,

Danke für eure vielen Antworten .

Gruss Bernd

[Martin K]

Zitat von MaBuSE:

Ich bevorzuge aber den Lösungsansatz von Martin.

Das ist ja auch der beste !

@Bernd29bln:
Ich hoffe, deine Fragen sind jetzt auch beantwortet.
Kommst du mit den Codes klar?

[Bernd29bln]

Hallo Martin K,

Ja Klar, habs hinbekommen und vielen Dank an Euch alle

Gruss Bernd