挑战:txt文件转成图像文件?SOS

Question

不知道你说的是不是
Image1.Picture.LoadFromFile('File');
不是我就不知道了！

Answer 1

先把你的文本文件读到一个书符串，
再用
image.canvas.outtext(x,y,s);
image.picture.bitmap.savetofile(*.bmp);

Answer 2

在你的窗体中添加一个Timage和一个Button，Button用于调用过程，此过程把文本和gif文件的名字作为参数。 procedure TxtToGif(txt, FileName: String); 
var 
    temp: TBitmap; 
    GIF : TGIFImage; 
begin 
  temp:=TBitmap.Create; 
  try 
    temp.Height     :=400; 
    temp.Width      :=60; 
    temp.Transparent:=True; 
    temp.Canvas.Brush.Color:=colFondo.ColorValue; 
    temp.Canvas.Font.Name:=Fuente.FontName; 
    temp.Canvas.Font.Color:=colFuente.ColorValue; 
    temp.Canvas.TextOut (10,10,txt); 
    Imagen.Picture.Assign(nil);     GIF := TGIFImage.Create; 
    try 
      // 转换位图为GIF 
      GIF.Assign(Temp); 
      // 保存GIF 
      GIF.SaveToFile(FileName); 
      // 显示GIF 
      Imagen.Picture.Assign (GIF); 
    finally 
      GIF.Free; 
    end; 
  Finally 
    temp.Destroy; 
  End; 
end;     如果你不想在你的窗体中显示图片，除去Timage和有关的代码。