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

[jianjian007]

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

[Mr.Yang.]

关注

[喝口水]

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

[zwjchina]

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;

[zwjchina]

真掉面子，内存泄露了，呵呵

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;

[jianjian007]

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

[zwjchina]

方法都告诉你了，你完全可以举一反三，自己完成。
多多思考，自己的编程水平才会提高。

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;