returns in Delphis Format-Funktion

Geri · Beiträge: 78 XP RAD Studio XE pro

Hallo zusammen

Ist es möglich die Format-Funktion so anzuwenden, dass ein Text in einer TMemo-Komponente Zeilenumbrüche erhält?

Beispiel:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

Procedure FormatTest();
var s:String;
Begin
  s:='Return ein?ß;
  memo1.lines.add(Format('Wie baut man hier \r ein',[s]));
End;

gewünschte Ausgabe:

Wie baut man hier
ein Return ein?

Habe es auch mit Memo1.text:=Format(....); versucht

Vielen Dank für Tipps

Geri

jakobwenzel · Verfasst: Di 18.08.09 18:01

So sollte es gehen:

markieren

Delphi-Quelltext

1:	Memo1.Text:='1. Zeile'+#13#10+'2. Zeile';

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

Ehemaliges Mitglied Erhaltene Danke: 1

Ich würde eher die Konstante sLineBreak verwenden, dafür ist sie da

Lannes · Verfasst: Di 18.08.09 18:39

Hallo,

mit Format würde es dann so aussehen:

markieren

Delphi-Quelltext

1:	Memo.Text := Format('%1:s%0:s%2:s%0:s%2:s',[sLineBreak,'Erste Zeile','weitere Zeile']);

Das ergibt dann z.B. im Memo:

markieren

Quelltext

1:
2:
3:

Erste Zeile
weitere Zeile
weitere Zeile

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

Geri · Beiträge: 78 XP RAD Studio XE pro

Hallo Lannes, Jakob und DeddyH

Vielen Dank für eure rasche Hilfe!

Die Lösung mit #13 habe ich bereits gekannt.

Die Formatanweisung dünkt mich etwas flexibler, gerade wenn man später z.B. mit Hilfe von gnugettext Strings mit Variablen extrahiert. Man muss dann einen Satz nicht in mehrer Teile unterteilen - der Übersetzer tut sich dann etwas leichter. Je nach Sprache variiert auch die Satzlänge und man möchte dann übersetzungsspezifisch Zeilenumbrüche einfügen.
Bestimmt gibt es auch noch andere Anwendungsfälle bei denen dieser Weg praktisch ist.

Besten Dank nochmals und freundliche Grüsse

Geri

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme