Delphi初浅入门笔记之十二：多媒体编程五(绘制文字篇)

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
   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.

 

源代码