![]() |
» Letzte Zeile eines Memofeldes löschen
![]() 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:
(Memo1click hab ich zum testen genommen)
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; Es wird keine Zeile gelöscht...:( kann mir jemand helfen? gruss silent |
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); |
moin, danke für die schnelle antwort:)
Delphi-Quellcode:
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 :)
Memo1.Text:=Memo1.Text+'Weiterer Text';
SendMessage(Memo1.Handle, EM_LINESCROLL, 0, Memo1.Lines.Count - 1); |
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:
|
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:
3: Jetzt sollte jedes weitere Memo1.Lines.Add() normal verlaufen
PostMessage(Memo1.Handle, WM_KEYDOWN, VK_BACK, 0 );
|
danke für die erklärung ;)
|
Hi Silent,
in Deinen Code sind 2 Fehler (einer ist gemein :D)
Code:
Erst einmal zu Nr. 2. Du fragst für jede Zeile, die Du überprüfen möchtest immer den gesamten Text ab. Ändere nach
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;
Delphi-Quellcode:
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
if memo1.Lines[bla] = '' then
Delphi-Quellcode:
und alles sollte funktionieren.
for bla := memo1.Lines.Count - 1 downto 0 do
...:cat:... |
moin sakura,
hab das jetzt so:
Delphi-Quellcode:
aber es ist immernoch eine Zeile mehr da, also bei z.B 3 Strings sind 4 Zeilen da
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; |
Das Problem hatte ich auch, probier mal meine Lösung
|
hm, scheinbar erkennt Delphi die letzte leere Zeile nicht als vollwertige Zeile an.
Delphi-Quellcode:
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.
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 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. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:48 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz