Leere Zeile im TDBMemo erkennen...

[PM Heiko]

Hallo miteinander...

ich möchte in einem TDBMemo Feld ermitteln, ob die Zeile die gerade mit ENTER bestätigt wurde leer ist und darauf reagieren, leider gab mir die Hilfe wieder mal keinen Hinweis... :-( Kann mir jeamand helfen?

Heiko

ps. frohe Festtage..

[Bernd Schulz]

Wahrscheinlich gibt es da sehr schicke nette Funktionen etc..<br>
Die Brechstange sieht so aus:<br>
procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;<br>
Shift: TShiftState);<br>
var<br>
i, count : integer;<br>
IsEmpty : boolean;<br>
begin<br>
if key = VK_RETURN then begin<br>
if memo1.selstart = length ( memo1.text ) then begin<br>
if memo1.lines[memo1.lines.count-1] = '' then begin<br>
Meine_Enter_Leer_Funktion;<br>
exit;<br>
end;<br>
end;<br>
count := 0;<br>
for i := 0 to memo1.lines.count -1 do begin<br>
count := count + length ( memo1.lines[i] )+2;<br>
IsEmpty := memo1.lines[i] = '';<br>
if count >= memo1.selstart then begin<br>
break;<br>
end;<br>
end;<br>
if IsEmpty then begin<br>
Meine_Enter_Leer_Funktion;<br>
end;<br>
end;<br>
end;<br>
<br>
BYE BERN