如何把TXT文件转化成若干张BMP.!

Question

  
   有一TXT文件.格式已经排好了.
    现在要按格式生成若干张BMP图片.每张图片只显示TXT文件的四行.
 即1-4行生成001.bmp 5-8 生成002.bmp        

Answer 1

可以使用image控件画图,然后保存成bmp文件的方法

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  Bmp: TBitmap;
  x, y: Integer;
  i: Integer;
begin
  Bmp := TBitmap.Create;  Bmp.Width := 400;
  Bmp.Height := 300;  x := 10;
  y := 10;  for i := 0 to 10 do
  begin
    Bmp.Canvas.TextOut(x, y, 'Just a test');
    y := y + Bmp.Canvas.TextHeight('Just a test');
  end;  Bmp.SaveToFile('c:\Test.bmp');end;

Answer 3

真掉面子，内存泄露了，呵呵procedure TForm1.Button1Click(Sender: TObject);
var
  Bmp: TBitmap;
  x, y: Integer;
  i: Integer;
begin
  Bmp := TBitmap.Create;  Bmp.Width := 400;
  Bmp.Height := 300;  x := 10;
  y := 10;  for i := 0 to 10 do
  begin
    Bmp.Canvas.TextOut(x, y, 'Just a test');
    y := y + Bmp.Canvas.TextHeight('Just a test');
  end;  Bmp.SaveToFile('c:\Test.bmp');
  Bmp.Free;
end;

Answer 4

  先謝謝樓上的.
    但是不是我提出問題的回答.
  是從文件裡面取數據(ReadLn()).而且是每四行一張圖片. 

Answer 5

方法都告诉你了，你完全可以举一反三，自己完成。
多多思考，自己的编程水平才会提高。
procedure TForm1.Button1Click(Sender: TObject);
var
  Bmp: TBitmap;
  i, ReadLines: Integer;
  f: TextFile;
  s: string;
  x, y: Integer;
begin
  Bmp := TBitmap.Create;  Bmp.Width := 400;
  Bmp.Height := 300;  AssignFile(f, 'c:\Test.txt');
  Reset(f);  i := 0;
  while not Eof(f) do
  begin
    ReadLines := 0;
    x := 10;
    y := 10;
    Bmp.Canvas.FillRect(Rect(0, 0, 400, 300));
    while not Eof(f) do
    begin
      Readln(f, s);
      Bmp.Canvas.TextOut(x, y, s);
      y := y + Bmp.Canvas.TextHeight(s);
      Inc(ReadLines);
      if ReadLInes = 4 then
        break;
    end;
    Bmp.SaveToFile('c:\Test' + IntToStr(i) + '.bmp');
    Inc(i);
  end;  Bmp.Free;
  CloseFile(f);
end;