Delphi字符串换行

Posted 2023-03-20

Canvas.TextOut(10, 10, '个数\n 6');这里怎么换行？

TextOut不能实现自动换行，如果要实现自动换行，可以考虑用DrawText。

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    rect:TRect;
begin
   s:='个数'+#10#13+'6';
   Rect.Left := 20;
   Rect.Top := 20;
   Rect.Right:= 20 + 100;
   Rect.Bottom:= 20 + 100;
   //Form1.Canvas.TextOut(10, 10,s);
   DrawText(Self.Canvas.Handle,PChar(s),-1,rect, DT_LEFT);
end;

参考技术A 1如许就可以了label1.Caption:='设置好时光后，根据'+#10#13+'时光选择右边的┞肥套';在窗体的oncreate事宜中参加留意：label1的autosize必须为true;在默认下也为true.

前端如何让字符串换行

参考技术A 如果是在HTML中，可以使用<br/>标签；
如果在CSS中，可以使用word-wrap:break-word

如果在JavaScript，使用转义字符\n