Announcement

Collapse
No announcement yet.

Leere Zeile im TDBMemo erkennen...

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Leere Zeile im TDBMemo erkennen...

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

  • #2
    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

    Comment

    Working...
    X