» 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.

[Pseudemys Nelsoni]

bei mir fügt das 1 neue zeile in die memobox und bei form1 caption wird immer um 1 erhöht hehe

ist der code ganz kopiert oder fehlt da ein teil?

btw hat "<-" einen "#..." wert? bzw welchen?

gruss und danke früs testen =)

[sakura]

Zitat:

Zitat von janjan

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

Das liegt nicht an Delphi ;) Das Memo basiert auf einer Standard-Windows-Komponente. An die letzte Zeile wird immer automatisch ein Zeilenumbruch gesetzt, von daher besteht wohl die einzige Möglichkeit, nach dem setzen des Textes, darin, diesen manuell (via VK_BACK Nachricht) wieder zu löschen. Code dazu wurde ja bereits gepostet.

...:cat:...

[janjan]

Mit '<-' meinte ich die Taste auf der Tastatur die diesen Pfeil nach links hat ;)

[Pseudemys Nelsoni]

jo aber man muss die taste jairgendwie benutzen können, also ohne tastatur^^

btw:

hatte das nun so

Delphi-Quellcode:

procedure TForm1.IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel; Content: String);
begin
memo1.Lines.Add('[' + auser.Nick + '] ' + content);
PostMessage(Memo1.Handle, WM_KEYDOWN, VK_BACK, 0 );
end;

aber die zeile ist nachwievor da :(

[janjan]

Zitat:

Zitat von 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

Mach es mal genauso wie es oben steht, nimm ein leeres Memo, füge etwas per Memo1.Lines.Add() hinzu und führe einmal PostMessage(Memo1.Handle, WM_KEYDOWN, VK_BACK, 0 ); aus.

Wenn du danach Zeilen per Memo1.Lines.Add() hinzufügst sollte die leere Zeile nicht mehr auftreten.

Bei mir klappt das so, ich hab hier Delphi 7 auf Win XP laufen.

[janjan]

Und jetzt noch als Programm:

nimm einen Button und ein Memo Feld

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Text:='';
memo1.Lines.Add('Hallo');
PostMessage(Memo1.Handle, WM_KEYDOWN, VK_BACK, 0 ); 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Add('test')
end;

end.

[Pseudemys Nelsoni]

stimmt, wenn ich ein neues project mache mit den 2 komponenten gehts....bei meinen prog funzt das nicht, kannst daran liegen das

BorderStyle BsNone ist??

[janjan]

So, ich glaub ich habs:

Delphi-Quellcode:

memo1.SelStart:=length(memo1.Text);
PostMessage(Memo1.Handle, WM_KEYDOWN, VK_BACK, 0 );

Für das einmal irgendwann aus, das sollte reichen.

[Pseudemys Nelsoni]

jo klappt, danke :)

[Pseudemys Nelsoni]

komisch in meinem projext funzte es nict, nichtmal wenn ich neues memo einfüg und damit teste, was ist das bloss :\
sieht doof aus wenn beim chat eine zeile leer ist

[Pseudemys Nelsoni]

ich hab das problem gefunden, aber die lösung nicht...

wenn "ReadOnly" True ist funzt das zeilen löschen nimmer, bzw nicht die letzte...kann man da was machen?

oder soll ich bei jedem bisschen

Readonly:=False
{usw}
ReadOnly:=True

?

[Pseudemys Nelsoni]

bah das geht auch nicht, sobald ReadOnly:=True ist gibts die zeile da am ende

:cry:

[Pseudemys Nelsoni]

hey kann mir jemand sagen was ich da nun machen kann?

gruss

[Pseudemys Nelsoni]

man is der thread alt, und was für ein gespamme :mrgreen: ....

aber gut das ich ihn noch gefunden hab.

Also wie kann ich die letzte leere zeile, die bei einem memo von anfang an da ist löschen, wenn die eigenschaft "ReadOnly = true" ist?

[MyRealName]

Das Problem ist das Senden der Nachricht. Wenn ReadOnly = true, dann werden die Editor-Nachrichten ignoriert :p
Vielleicht einfach ganz hinten das CRLF wegnehmen :

var S, S1 : String;
begin
S := Memo1.Lines[Memo1.Lines.Count - 1];
S1 := #13#10;
Delete(S1, S, 2);
end;

so sollte das gehen, denn wenn kein Carriage Return+LineFeed, dann keine neue Zeile :p

MRN

[Pseudemys Nelsoni]

hoi, danke erstmal für den code (ich weiss nur noch nicht wohin damit ^^)

welche der zeilen löscht denn die leere zeile aus dem memo?
sehe nur das was aus einem string gelöscht wird