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.


 
   




//效果图:

---