把文本中得内容读出来,然后按照一定得格式绘制在bmp上
var
bmp: TBitmap;
begin
bmp:=TBitmap.Create;
bmp.Width:=?
bmp.Height:=?
iLine:=0;
while not eof(f)do
begin
ReadLn(f,sLine);
bmp.Canvas.TextOut(0,iLine,sLine);
Inc(iLine, 20); //行距为20向素
end;
end;
var
bmp: TBitmap;
begin
bmp:=TBitmap.Create;
bmp.Width:=?
bmp.Height:=?
iLine:=0;
while not eof(f)do
begin
ReadLn(f,sLine);
bmp.Canvas.TextOut(0,iLine,sLine);
Inc(iLine, 20); //行距为20向素
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货