Wie füge ich ein neue-Zeile-Zeichen in einem string in Delphi?

Ich möchte einen string über mehrere Zeilen zu ordnen, um eine Label-Caption-Eigenschaft. Wie ist das in Delphi getan?

InformationsquelleAutor Brendan | 2008-10-31

164

In das System.pas (die wird automatisch benutzt) ist Folgendes definiert:
```
const
  sLineBreak = {$IFDEF LINUX} AnsiChar(#10) {$ENDIF} 
               {$IFDEF MSWINDOWS} AnsiString(#13#10) {$ENDIF};
```
Dies ist von Delphi 2009 (beachten Sie die Verwendung von AnsiChar und AnsiString). (Zeilenumbruch von mir aufgenommen.)

Also, wenn Sie wollen, um Ihren TLabel wickeln, stellen Sie sicher, AutoSize auf true gesetzt ist, und verwenden Sie dann den folgenden code:
```
label1.Caption := 'Line one'+sLineBreak+'Line two';
```
Funktioniert in allen Versionen von Delphi, da sLineBreak eingeführt wurde, die ich glaube, war Delphi 6.
- Vielen Dank dafür! Ich habe früher immer #13#10.
- Wow, das ist viel besser, als ich erhofft hatte!
InformationsquelleAutor Jim McKeeth
32

Hier ist ein noch kürzerer Weg:
```
my_string := 'Hello,'#13#10' world!';
```
- nicht plattformunabhängig 🙂
InformationsquelleAutor Zartog
14

my_string := 'Hello,' + #13#10 + 'world!';

#13#10 ist die CR/LF-Zeichen in dezimal -
- Und es funktioniert immer noch für das Jahr 2009 (Unicode).
InformationsquelleAutor Brendan
8

Oder verwenden Sie den ^M+^ - J-Verknüpfung auch. Alles eine Frage der Präferenz. die "STRG-CHAR" - codes sind in der übersetzung durch den compiler.
```
MyString := 'Hello,' + ^M + ^J + 'world!';
```
Können Sie mit der + Weg zwischen den ^M und ^J, aber dann erhalten Sie eine Warnung durch den compiler (aber es wird noch kompilieren fein).

InformationsquelleAutor skamradt
7

Auf der Seite, ein trick, die nützlich sein können:

Wenn Sie halten Ihr mehrere strings in ein TStrings, Sie müssen nur verwenden Sie die Text-Eigenschaft des TStrings wie im folgenden Beispiel.
```
Label1.Caption := Memo1.Lines.Text;
```
Und erhalten Sie Ihre multi-line-label...

InformationsquelleAutor François

var
  stlst: TStringList;
begin
  Label1.Caption := 'Hello,'+sLineBreak+'world!';

  Label2.Caption := 'Hello,'#13#10'world!';

  Label3.Caption := 'Hello,' + chr(13) + chr(10) + 'world!';

  stlst := TStringList.Create;
  stlst.Add('Hello,');
  stlst.Add('world!');
  Label4.Caption := stlst.Text;

  Label5.WordWrap := True; //Multi-line Caption
  Label5.Caption := 'Hello,'^M^J'world!';

  Label6.Caption := AdjustLineBreaks('Hello,'#10'world!');
  {http://delphi.about.com/library/rtl/blrtlAdjustLineBreaks.htm}
end;

InformationsquelleAutor Jessé Catrinck

2

Den plattform-Agnostiker Weg wäre 'sLineBreak':
http://www.freepascal.org/docs-html/rtl/system/slinebreak.html

Write('Hallo' + sLineBreak + 'Welt!');

InformationsquelleAutor Wendigo
0
```
ShowMessage('Hello'+Chr(10)+'World');
```
InformationsquelleAutor
0

Ich habe nicht eine Kopie von Delphi zur hand, aber ich bin ziemlich sicher, wenn Sie die wordwrap-Eigenschaft auf true und die autosize-Eigenschaft auf false sollte es wickeln Sie jeden text, den Sie setzen es auf die Größe stellen Sie das Etikett. Wenn Sie möchten, um Zeilenumbruch in einem bestimmten Ort, dann es könnte funktionieren, wenn Sie die oben genannten Einstellungen und paste aus einem Texteditor.

Hoffe, das hilft.

InformationsquelleAutor Toby Allen
-2

Manchmal will ich nicht zu überhäufen, meine code-Raum, vor allem für ein statisches label. Zu einfach haben es definiert mit dem Formular, geben Sie den label-text auf der form, dann mit der rechten Maustaste überall auf die gleiche form. Wählen Sie "Ansicht als Text". Nun sehen Sie alle Objekte, wie entworfen, aber nur als text. Blättern Sie nach unten, oder suchen für Ihren text. Wenn Sie es finden, Bearbeiten Sie die Beschriftung, so sieht es etwas aus wie:

Caption = 'Zeile 1'#13'Line 2'#13'Line 3'

#13 bedeutet eine Ordnungszahl von 13 oder ascii carriage return. Chr(13) ist die gleiche Idee, CHR() ändert die Zahl auf einer ordinalen Typ.

Beachten Sie, dass es gibt keine semi-colon ' s in diesem speziellen Facette von Delphi, und "=" verwendet wird anstatt ":=". Den text für jede Zeile in einfache Anführungszeichen eingeschlossen ist.

Sobald Sie fertig sind, rechtsklicken Sie erneut und wählen Sie "Ansicht als Formular". Sie können nun alle Formatierungen wie Fett, Rechtsbündig, usw. Sie können nicht nur re-Bearbeiten Sie den text auf dem Formular oder Sie verlieren Ihre Linie bricht.

Ich auch mit "Ansicht als Text" für mehrere änderungen, wo ich will einfach nur, um zu Blättern und tun, Ersatz, etc. Schnell.

Dave
- Die akzeptierte Antwort ist, direkt auf den Punkt, nur wie ist die Frage. Diese Antwort, im Gegenteil, fügt hinzu, mehr als gefragt wurde; schlimmer noch: in einer nicht so klaren Art und Weise.
InformationsquelleAutor Dave Sonsalla

-2

 private
   { Private declarations }
   {declare a variable like this}
   NewLine : string; // ok
  // in next event handler assign a value to that variable (NewLine)
  // like the code down
procedure TMainForm.FormCreate(Sender: TObject);
begin`enter code here`
  NewLine := #10;
 {Next Code To show NewLine In action}
  //ShowMessage('Hello to programming with Delphi' + NewLine + 'Print New Lin now !!!!');
end;

Bitte formatieren Sie den code und fügen Sie eine Beschreibung, wie diese das problem löst.

InformationsquelleAutor boodyman28

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.