Delphi的绘图功能[8] - TextOut、TextWidth、TextHeight

Delphi的绘图功能[8] - TextOut、TextWidth、TextHeight2011-12-15 cnblogs 万一

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
type
 TForm1 = class（TForm）
  Button1: TButton;
  procedure Button1Click（Sender: TObject）;
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click（Sender: TObject）;
const
 arr: array[0..3] of WideString = （
  "白日依山尽",
  "黄河入海流",
  "欲穷千里目",
  "更上一层楼"
 ）;
 a = 20; {横向间隔}
 b = 20; {纵向间隔}
var
 s: string;
 x,y: Integer;
 i,j: Integer;
begin
 x := 20;
 y := 20;
 for i := 0 to Length（arr）-1 do
 begin
  for j := 1 to Length（arr[i]） do {j := 0 to Length（arr[i]）-1 ？ WideString！}
  begin
   s := arr[i][j];
   Canvas.TextOut（x, y, s）;
   x := x + Canvas.TextWidth（s） + a;
  end;
  x := 20;
  y := y + Canvas.TextHeight（s） + b;
 end;
end;
end.

//效果图: