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.

?

?

//效果图: