TO:千两狂郎 俺的小猫太慢了！

Question

function CanvasToGBText(mCanvas: TCanvas; mRect: TRect;
  mBackColor: TColor = clWhite): String; { 文本花式 }
var
  I, J: Integer;
  S: string;
begin
  Result := '';
  for J := mRect.Top to mRect.Bottom do begin
    S := '';
    for I := mRect.Left to mRect.Right do
    begin
      if mCanvas.Pixels[I, J]=mBackColor then Result := Result + Form1.ComboBox1.Text
      else Result := Result + Form1.ComboBox2.Text;
    end;
    Result := Result + S + #13#10;
  end;
end; { CanvasToGBText }
呵呵～～

Answer 1

TO：千两
猫肉不能吃的！
TO：迈克尔.朱珠
在猪那儿吗？

Answer 2

看这个阿～～～function CanvasToGBText(mCanvas: TCanvas; mRect: TRect;
  mBackColor: TColor = clWhite): String; { 文本花式 }
var
  I, J: Integer;
  S: string;
begin
  Result := '';
  for J := mRect.Top to mRect.Bottom do begin
    S := '';
    for I := mRect.Left to mRect.Right do
    begin
      if mCanvas.Pixels[I, J]=mBackColor then Result := Result + '■'
      else Result := Result + '□';
    end;
    Result := Result + S + #13#10;
  end;
end; { CanvasToGBText }

Answer 3

老千阿～～http://www.csdn.net/expert/Topic/388/388050.shtm去这个帖子和我说阿～～