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