Innere Struktur von TStrings / TMemo

[Sir Rufo]

@Popov

Das war und ist auch nicht das Problem, sondern das spezielle Verhalten der konkreten TStrings Klasse bei einem TMemo .

Der gesamte Code mit dem kopieren und befüllen von TStrings ist irrelevant und eher störend. Das beobachtete Verhalten kann man ganz simpel mit einem TMemo nachstellen.

Delphi-Quellcode:

procedure TForm1.Button2Click( Sender: TObject );
begin
  Memo1.Width := 105;
  Memo1.Text := 'Dieses ist ein toller langer Text der in einem Memo angezeigt werden soll.';
  ShowMessage( IntToStr( Memo1.Lines.Count ) ); // 5
  ShowMessage( Memo1.Lines.Text ); // trotzdem nur eine Zeile ohne Zeilenumbrüche
end;