很简单的打印一行文本文字的问题呀，为什么老没人帮我？555

Question

我用printer.Canvas.Textout(outrect.Left,outrect.Top,memo1.text);打印一行memo1里面的内容，但是文字一多就不能自动换行了，而且把字体改大后就重叠，怎么控制啊？

Answer 1

Textout不折行
var
  Rect: TRect;
begin
  rect.left := 300;
  rect.top  := 300;
  rect.right := 400; 
  rect.Bottom := 400;
DrawText(printer.Canvas.Handle,pchar(memo1.text),length(memo1.text),Rect,DT_WORDBREAK or DT_LEFT);

Answer 2

memo1.text转不成pchar啊？出错。