关于label的宽

Question

应该怎么设置才能动态地符合里面文本的宽呢？、
如果设为autoSize的话，虽然能把全部文字显示出来，但是label的宽是被限制住了一定长度，而自动采取了换行显示，
如何才能让他保持原来文本的长度并能把文本全部显示？
（文本可能有多行）

Answer 1

将文本内容先赋值给 Memo 或者 RichTextBox， 他们是自动换行的然后 依次取得 RichTextBox 或者 Memo 的每一行procedure TForm1.Button1Click(Sender: TObject);
var
  str:string;
  i,r:Integer;
begin
  Memo1.Text:='12314rqwfaergrgrggtgtytrytrytgetrgervbtwsasrytrytrytryrtyteytry1456s+frwer';
  str:='';
  for i:=0 to Memo1.Lines.Count-1 do
    str:=str+Memo1.Lines[i]+#13;
  Label1.Caption:=str;
end;

Answer 2

Memo1 设置成隐藏不可见就可以了