blocks|key|1701169|text|在System.pas+(自动使用)中，定义了以下内容：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1701170|const
++sLineBreak+=+{$IFDEF+LINUX}+AnsiChar(#10)+{$ENDIF}+
+++++++++++++++{$IFDEF+MSWINDOWS}+AnsiString(#13#10)+{$ENDIF};|code-block|syntax|javascript|1701171|这是来自Delphi2009(注意AnsiChar和AnsiString的用法)。(换行由我添加。)|1701172|因此，如果要使TLabel包装，请确保将AutoSize设置为true，然后使用以下代码：|1701173|label1.Caption+:=+'Line+one'%2BsLineBreak%2B'Line+two';|1701174|自从sLineBreak被引入以来，它在所有版本的Delphi中都能工作，我相信是Delphi6。|1701175|entityMap^0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|S|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|T|8|@]|9|@]|A|$]]|$1|K|3|L|5|D|7|U|8|@]|9|@]|A|$E|F]]|$1|M|3|N|5|6|7|V|8|@]|9|@]|A|$]]|$1|O|3|-4|5|6|7|W|8|@]|9|@]|A|$]]]|P|$]]

In the System.pas (which automatically gets used) the following is defined:

<pre><code>const
 sLineBreak = {$IFDEF LINUX} AnsiChar(#10) {$ENDIF} 
 {$IFDEF MSWINDOWS} AnsiString(#13#10) {$ENDIF};
</code></pre>

This is from Delphi 2009 (notice the use of AnsiChar and AnsiString). (Line wrap added by me.)

So if you want to make your TLabel wrap, make sure AutoSize is set to true, and then use the following code:

<pre><code>label1.Caption := 'Line one'+sLineBreak+'Line two';
</code></pre>

Works in all versions of Delphi since sLineBreak was introduced, which I believe was Delphi 6.

blocks|key|1485912|text|这里有一个更短的方法：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1485913|my_string+:=+'Hello,'#13#10'+world!';|code-block|syntax|javascript|1485914|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Here's an even shorter approach:

<pre><code>my_string := 'Hello,'#13#10' world!';
</code></pre>

blocks|key|1700930|text|my_string+:=+'Hello,'+%2B+#13#10+%2B+'world!';|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1700931|#13#10是十进制的CR/LF字符|1700932|entityMap^0|0|16|0|0|6|0^^$0|@$1|2|3|4|5|6|7|J|8|@$9|K|A|L|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|M|8|@$9|N|A|O|B|C]]|D|@]|E|$]]|$1|H|3|-4|5|6|7|P|8|@]|D|@]|E|$]]]|I|$]]

<code>my_string := 'Hello,' + #13#10 + 'world!';</code>

<code>#13#10</code> is the CR/LF characters in decimal

blocks|key|1701049|text|另外，还有一个可能有用的技巧：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1701050|如果在TStrings中包含多个字符串，则只需使用TStrings的Text属性，如下例所示。|1701051|Label1.Caption+:=+Memo1.Lines.Text;|code-block|syntax|javascript|1701052|你会得到你的多行标签。|1701053|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|N|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|O|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|P|8|@]|9|@]|A|$]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

On the side, a trick that can be useful: 
If you hold your multiple strings in a TStrings, you just have to use the Text property of the TStrings like in the following example.

<pre><code>Label1.Caption := Memo1.Lines.Text;
</code></pre>

And you'll get your multi-line label...

blocks|key|1701106|text|或者，您也可以使用%5EM%2B%5EJ快捷方式。这完全是个人喜好的问题。"CTRL-CHAR“代码由编译器翻译。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1701107|MyString+:=+'Hello,'+%2B+%5EM+%2B+%5EJ+%2B+'world!';|code-block|syntax|javascript|1701108|您可以去掉%5EM和%5EJ之间的%2B号，但是编译器会给您一个警告(但它仍然可以正常编译)。|1701109|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

Or you can use the ^M+^J shortcut also. All a matter of preference. the "CTRL-CHAR" codes are translated by the compiler.

<pre><code>MyString := 'Hello,' + ^M + ^J + 'world!';
</code></pre>

You can take the + away between the ^M and ^J, but then you will get a warning by the compiler (but it will still compile fine).

blocks|key|1486125|text|var
++stlst:+TStringList;
begin
++Label1.Caption+:=+'Hello,'%2BsLineBreak%2B'world!';

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

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

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

++Label5.WordWrap+:=+True;+//Multi-line+Caption
++Label5.Caption+:=+'Hello,'%5EM%5EJ'world!';

++Label6.Caption+:=+AdjustLineBreaks('Hello,'#10'world!');
++{http://delphi.about.com/library/rtl/blrtlAdjustLineBreaks.htm}
end;|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1486126|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>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;
</code></pre>

blocks|key|1486171|text|平台不可知的方式是'sLineBreak'：http://www.freepascal.org/docs-html/rtl/system/slinebreak.html|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1486172|Write('Hello‘%2B+sLineBreak+%2B+'World!')；|1486173|entityMap|0|LINK|mutability|MUTABLE|url|http://www.freepascal.org/docs-html/rtl/system/slinebreak.html^0|M|1Q|0|0|0^^$0|@$1|2|3|4|5|6|7|N|8|@]|9|@$A|O|B|P|1|Q]]|C|$]]|$1|D|3|E|5|6|7|R|8|@]|9|@]|C|$]]|$1|F|3|-4|5|6|7|S|8|@]|9|@]|C|$]]]|G|$H|$5|I|J|K|C|$L|M]]]]

The plattform agnostic way would be 'sLineBreak':
<a href="http://www.freepascal.org/docs-html/rtl/system/slinebreak.html" rel="nofollow">http://www.freepascal.org/docs-html/rtl/system/slinebreak.html</a>

Write('Hello' + sLineBreak + 'World!');

blocks|key|1486098|text|ShowMessage('Hello'%2BChr(10)%2B'World');|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1486099|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>ShowMessage('Hello'+Chr(10)+'World');
</code></pre>

blocks|key|1701386|text|System.pas+unit中的const+sLineBreak已经根据您正在使用的操作系统进行了处理。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1701387|使用示例：|1701388|TForm1.btnInfoClick(Sender:+TObject);
begin
+++ShowMessage+('My+name+is+Jhon'+%2B+sLineBreak
++++++'Profession:+Hollywood+actor');
end;|code-block|syntax|javascript|1701389|entityMap^0|0|A|B|4|H|G|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@$9|P|A|Q|B|C]|$9|R|A|S|B|C]|$9|T|A|U|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|V|8|@]|D|@]|E|$]]|$1|H|3|I|5|J|7|W|8|@]|D|@]|E|$K|L]]|$1|M|3|-4|5|6|7|X|8|@]|D|@]|E|$]]]|N|$]]

You have the <code>const sLineBreak</code> in the <code>System.pas</code> <code>unit</code> that already does the treatment according to the OS you are working on.
Example of use:
<pre><code>TForm1.btnInfoClick(Sender: TObject);
begin
 ShowMessage ('My name is Jhon' + sLineBreak
 'Profession: Hollywood actor');
end;
</code></pre>

blocks|key|1486244|text|有时我不想弄乱我的代码空间，特别是对于静态标签。要仅使用表单定义它，请在表单上输入标签文本，然后在同一表单上的任意位置单击鼠标右键。选择“以文本形式查看”。现在，您将看到设计好的所有对象，但仅显示为文本。向下滚动或搜索您的文本。找到后，编辑标题，使其看起来类似于：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1486245|Caption+=‘行1’#13‘行2’#13‘行3’|1486246|#13表示序数13，或表示回车符的ascii。Chr(13)的概念与此相同，CHR()将数字改为序数类型。|1486247|注意，在Delphi的这个特定方面中没有分号，并且使用"=“而不是":=”。每一行的文本都用单引号括起来。|1486248|完成后，再次右击并选择"View+as+Form“。您现在可以进行任何格式设置，如加粗、右对齐等。您不能重新编辑表单上的文本，否则将丢失换行符。|1486249|我还使用"View+as+Text“来进行多项更改，我只想滚动浏览并进行替换，等等。|1486250|戴夫|1486251|entityMap^0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|P|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|Q|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|R|8|@]|9|@]|A|$]]|$1|F|3|G|5|6|7|S|8|@]|9|@]|A|$]]|$1|H|3|I|5|6|7|T|8|@]|9|@]|A|$]]|$1|J|3|K|5|6|7|U|8|@]|9|@]|A|$]]|$1|L|3|M|5|6|7|V|8|@]|9|@]|A|$]]|$1|N|3|-4|5|6|7|W|8|@]|9|@]|A|$]]]|O|$]]

Sometimes I don't want to clutter up my code space, especially for a static label. To just have it defined with the form, enter the label text on the form, then right click anywhere on the same form. Choose "View as Text". You will now see all of the objects as designed, but as text only. Scroll down or search for your text. When you find it, edit the caption, so it looks something like: 

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

#13 means an ordinal 13, or ascii for carriage return. Chr(13) is the same idea, CHR() changes the number to an ordinal type. 

Note that there are no semi-colon's in this particular facet of Delphi, and "=" is used rather than ":=". The text for each line is enclosed in single quotes. 

Once you are done, right-click once again and choose "View as Form". You can now do any formatting such as bold, right justify, etc. You just can't re-edit the text on the form or you will lose your line breaks.

I also use "View as Text" for multiple changes where I just want to scroll through and do replacements, etc. Quick.

Dave

blocks|key|1701334|text|+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'+%2B+NewLine+%2B+'Print+New+Lin+now+!!!!');
end;|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1701335|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code> 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;
</code></pre>

I want to create a string that spans multiple lines to assign to a Label Caption property. How is this done in Delphi?

How do I include a newline character in a string in Delphi?

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋 

腾讯云代码助手

CODING DevOps

Cloud Studio

SDK中心

API中心

命令行工具

我想创建一个跨越多行的字符串，并将其分配给标签标题属性。在Delphi中如何做到这一点？

问在Delphi中如何在字符串中包含换行符？
EN

回答 11

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在Delphi中如何在字符串中包含换行符？EN

回答 11

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在Delphi中如何在字符串中包含换行符？
EN