随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

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.

//效果图:


posted on 2008-02-17 15:49  万一  阅读(...)  评论(...编辑  收藏