maxim:
我试过了，我假设的 在500*500 的 canvas 上draw 48*48 的图片（由image中取得);Margin为5
如果要保存到数据库，你要用Draw 到Bitmap 上，将bitmap保存到数据库的 TBlobField中就可以啦。
procedure TForm1.Button1Click(Sender: TObject);
const
Margin = 5;
var
i,j : integer;
R: Trect;
Col, Row: integer;
begin
Col:=500 div (48+Margin);
Row:=500 div (48+Margin);
canvas.Brush.Color:=clWhite;;
canvas.FillRect(Rect(0,0,500,500));
for i:=0 to Col-1 do
for j:=0 to Row-1 do
begin
R:=Rect(i*48,j*48,(i+1)*48,(j+1)*48);
inflateRect(R,-Margin,-Margin);
canvas.StretchDraw(R,image1.Picture.Graphic);
end;
canvas.FrameRect(Rect(0,0,500,500));
end;
