Problem mit Zeilenaufspaltung in einem Memo

[Nils_13]

Hi,

ich möchte, dass ein z.B. 5000 Zeichen langer Text in meinem Memo untereinander aufgereiht wird --> eine Art Zeilenumbruch. Ich möchte aber auch, dass das Memo die Höhe des Textes enthält --> 1 Zeile im Memo, Memo so hoch, wie eine Zeile. 2 Zeilen ..., usw.

Bei dem folgenden Code verhält sich das Memo allerdings komisch. Probiert es am besten selber mal schnell aus, es ist schwer zu beschreiben:

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
begin
  Memo1.Height := (Memo1.Lines.Count * abs(Memo1.Font.Height));
end;