» Letzte Zeile eines Memofeldes löschen

[Pseudemys Nelsoni]

http://www.united-coding.de/j0.jpg

moin,

wie man sieht ist die letzte zeile links immer leer, egal wieviele zeilen man schreibt. Wie kann ihr die letzte löschen?

hatte das schon so versucht:

Delphi-Quellcode:

procedure TForm1.Memo1Click(Sender: TObject);
var bla: integer;
begin
for bla := 0 to memo1.Lines.Count do
  begin
  if memo1.Lines.Text = '' then
    begin
    memo1.Lines.Delete(bla);
    end;
  end;
end;

(Memo1click hab ich zum testen genommen)
Es wird keine Zeile gelöscht...:(

kann mir jemand helfen?

gruss silent

[City Light]

Morgen

ich weiß nich ob das jetzt hilft aber teste es mal ,ich werd erst mal in mein Bett gehen is ja auch wieder so früh :freak:

Delphi-Quellcode:

{
Mit folgendem Eintrag wird dass Memo-Feld an das Ende gerollt, so das man
neu hinzugekommene Einträge auch sehen kann.
}

   Memo1.Text:=Memo1.Text+'Weiterer Text';
   SendMessage(Memo1.Handle, EM_LINESCROLL, 0, Memo1.Lines.Count - 1);

[Pseudemys Nelsoni]

moin, danke für die schnelle antwort:)

Delphi-Quellcode:

Memo1.Text:=Memo1.Text+'Weiterer Text'; 
   SendMessage(Memo1.Handle, EM_LINESCROLL, 0, Memo1.Lines.Count - 1);

so etwas ähnliches hab ich auch in der google suche gefunden, da ich den ganzen code nicht so verstehe hab ich hier gefragt, z.B woher kennt man EM_LINESCROLL? wenn der code einfacher geht sags mir bitte :)

[janjan]

zu EM_LINESCROLL:

Sowas findest du in Delphi unter Hilfe-> Win32-SDK

EM_LINESCROLL ist eine sogenannte Windows-Message, kuck am besten mal auf Luckie's Seite, da ist sowas erklärt.

Zitat:

An application sends an EM_LINESCROLL message to scroll the text vertically or horizontally in a multiline edit control.

EM_LINESCROLL
wParam = (WPARAM) cxScroll; // characters to scroll horizontally
lParam = (LPARAM) cyScroll; // lines to scroll vertically


Parameters

cxScroll

Value of wParam. Specifies the number of characters to scroll horizontally.

cyScroll

Value of lParam. Specifies the number of lines to scroll vertically.



Return Values

If the message is sent to a multiline edit control, the return value is TRUE; if the message is sent to a single-line edit control, the return value is FALSE.

Remarks

The edit control does not scroll vertically past the last line of text in the edit control. If the current line plus the number of lines specified by the cyScroll parameter exceeds the total number of lines in the edit control, the value is adjusted so that the last line of the edit control is scrolled to the top of the edit-control window.
The EM_LINESCROLL message can be used to scroll horizontally past the last character of any line.

[janjan]

Meine Lösung (recht provisorisch, es sollte besseres geben):

1: Füge eine Zeile zu einem leeren Memo Feld hinzu

2: Einmal das hier ausführen:

Delphi-Quellcode:

PostMessage(Memo1.Handle, WM_KEYDOWN, VK_BACK, 0 );

3: Jetzt sollte jedes weitere Memo1.Lines.Add() normal verlaufen

[Pseudemys Nelsoni]

danke für die erklärung ;)

[sakura]

Hi Silent,

in Deinen Code sind 2 Fehler (einer ist gemein :D)

Code:

procedure TForm1.Memo1Click(Sender: TObject); 
var bla: integer; 
begin 
[color=#ee0000]for bla := 0 to memo1.Lines.Count do [/color] // 1
  begin 
  [color=#ee0000]if memo1.Lines.Text = '' then [/color] // 2
    begin 
    memo1.Lines.Delete(bla); 
    end; 
  end; 
end;

Erst einmal zu Nr. 2. Du fragst für jede Zeile, die Du überprüfen möchtest immer den gesamten Text ab. Ändere nach

Delphi-Quellcode:

if memo1.Lines[bla] = '' then

Der erste ist gemein und basiert auf der Optimierung durch Delphi. Der führt, wenn eine Leerzeile gelöscht wurde, zu einer Index-Verletzung. Als obere Grenze legst Du memo1.Lines.Count fest. Das nimmt Delphi auch wörtlich und merkt sich den Wert vor dem Start der Schleife. Werden also innerhalb der Schleife irgendwelche Zeilen gelöscht, so geht Dein Programm über das neue (geringere) Ende der Liste hinaus und versucht einen nicht-existierenden String zu laden :evil: Ausserdem musst Du die obere Grenze beachten, welche fast immer nicht count sondern count - 1 ist. (suche mal nach 0-basierten Listen). Ändere die Zeile (// 1) auf

Delphi-Quellcode:

for bla := memo1.Lines.Count - 1 downto 0 do

und alles sollte funktionieren.

...:cat:...

[Pseudemys Nelsoni]

moin sakura,

hab das jetzt so:

Delphi-Quellcode:

procedure TForm1.Memo1Click(Sender: TObject);
var bla: integer;
begin
for bla := memo1.Lines.Count-1 downto 0 do
  begin
  if memo1.Lines[bla] = '' then
    begin
    memo1.Lines.Delete(bla);
    end;
  end;
end;

aber es ist immernoch eine Zeile mehr da, also bei z.B 3 Strings sind 4 Zeilen da

[janjan]

Das Problem hatte ich auch, probier mal meine Lösung

[janjan]

hm, scheinbar erkennt Delphi die letzte leere Zeile nicht als vollwertige Zeile an.

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
begin
form1.Caption:=memo1.Lines[memo1.Lines.count-1];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Add(inttostr(memo1.Lines.count));
end;

Wenn man den Button mehrmals drückt, dann sollte er ja theoretisch nichts in der Titelleiste anzeigen, da die letzt Zeile ja nicht beinhaltet. Angezeigt wird aber die vorletzte Zeile.

Wenn man in der letzten Zeile einmal '<-' drückt, dann wird die letzte Zeile gelöscht und taucht auch bei weiterem drücken von Button1 nicht mehr aufund in der Form1.Caption wird jetzt die richtige zeile angezeigt.