Delphi 的繪圖功能[8] - TextOut、TextWidth、TextHeight

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.//效果圖: