这个程序的重点在那？

Question

烦啊。呵呵！
n个Canvas.TextOut(x,y,'谢');

Answer 1

做一个图片，图片上写一个“多”字
Canvas.Brush.Bitmap := ...
canvas.Textout(10,10,'谢');
应该可以

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  I, J: Integer;
  S: string;
begin
  Image1.Picture.Assign(nil);
  Image1.Canvas.Font.Assign(Edit1.Font);
  Image1.Picture.Bitmap.Width := Image1.Canvas.TextWidth(Edit1.Text);
  Image1.Picture.Bitmap.Height := Image1.Canvas.TextHeight('|');
  Image1.Canvas.TextOut(0, 0, Edit1.Text);
  Memo1.Clear;
  for J := 0 to Image1.Picture.Bitmap.Height - 1 do begin
    S := '';
    for I := 0 to Image1.Picture.Bitmap.Width - 1 do
      if Image1.Picture.Bitmap.Canvas.Pixels[I, J] = clBlack then
        S := S + Edit2.Text {你}
      else S := S + Edit3.Text {　};
    Memo1.Lines.Add(S);
  end;
end;

Answer 3

to qhlake1:都说到这分上，你就自己发挥发挥吧      if Image1.Picture.Bitmap.Canvas.Pixels[I, J] = clRed then
        S := S + '红'
      else if Image1.Picture.Bitmap.Canvas.Pixels[I, J] = clYellow then
        S := S + '黄'
      else if Image1.Picture.Bitmap.Canvas.Pixels[I, J] = cl... then
        S := S + ...