//声明: TextOut( DC: HDC; {设备环境句柄} X, Y: Integer; {起点坐标} Str: PChar; {字符串指针} Count: Integer {字符串长度} ): BOOL;
//举例: procedure TForm1.FormPaint(Sender: TObject); const str = '万一的 Delphi 博客'; begin TextOut(Canvas.Handle, 50, 50, str, Length(str)); end;
//效果图: