Wie zeilenumbruch erzwingen?

[hendy]

Wie kann ich einen Zeilenumbruch erzwingen?
Ich hab ein Programm, das HTML code generiert und will eine Chronik einbauen.
Mein Code

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text:=edit1.text+edit2.text;
end;

Das Ergebnis sieht so aus:
EditEdit2

+#10#13
hab ich probiert, das sieht dann so aus:
edit1(Kästchen)(kästchen)Edit2
Hilfe!!

[Hitman]

Du willst kein Edit, sondern eine MemoBox.

[Kuster Peter]

CHR(13) ist doch der Zeilenumbruch oder irre ich mich. Nimm ein Memofeld oder wenn Du ein Textfeld willst, dann musst Du bei den Eigenschaften den Zeilenumbruch aktivieren.

Peter

[hendy]

mit der memobox klappt das auch nicht richtig, der bricht immer erst am ende der Zeile um, ich will den aber bei jedem Klick umbrechen lassen.
Chr(13) hat auch nicht funktioniert

[monta]

Setz noch ein TMemo drauf, Edit kann keine Zeilenumbrüche, und dann:

Code: Alles auswählen

Memo.Text := edit1.text + LineEnding + edit2.text;

[hendy]

Danke monta, hat funktioniertn

[monta]

Alternativ, wenn eh alles Zeilenweise aus Edits kommt, wäre folgendes auch möglich:

Code: Alles auswählen

Memo.Lines.Add(Edit1.Text);
Memo.Lines.Add(Edit2.text); //usw...

Bei Add wird automatisch am Ende angehangen und eine neue Zeile erzeugt. Das hat den Vorteil, das du bei sehr umfangreichen Texten nicht immer über die Text-Property des Memos gehen musst. Das Resultat ists letztlich fast das selbe...nur der Vollständigkeit wegen.