如何读取txt的内容并将其写在image的canvas上，最后保存成bmp图片？

Question

如何读取txt的内容并将其写在image的canvas上，最后保存成bmp图片？

Answer 1

txt --> 流 --> 图片 --> canvas --> 图片我没做试验，你试试看

Answer 2

procedure TForm1.Button4Click(Sender: TObject);
begin
  Image1.Canvas.TextOut(1,1,'test');
  Image1.Picture.SaveToFile('c:\a.bmp');
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var 
  tmp:string;
begin
  tmp:='test';
  image1.Canvas.TextOut(0,0,tmp);
  image1.Picture.SaveToFile('d:\1.bmp');
end;唉，没好好看题上面的代码就行了吧

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  aStringList:TStringList;
  i:integer;
begin
  aStringList:=TStringList.Create;
  try
    aStringList.LoadFromFile('F:\1.txt');
    for  i:=0  to aStringList.Count-1 do
      Image1.Canvas.TextOut(20,25*i+20,aStringList.Strings[i]);
    Image1.Picture.SaveToFile('F:\1.bmp');  finally
    aStringList.Free;
  end;
end;