请问怎样将一个.txt文件显示在屏幕上和打印出来？

Question

见题

Answer 1

Memoprocedure TForm1.Button1Click(Sender: TObject);
var
  r: TRect;
  i: Integer;
begin
  with Printer do
    begin
      r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
      BeginDoc;
      Canvas.Brush.Style := bsClear;
      for i := 0 to Memo1.Lines.Count do
       Canvas.TextOut(200,200 + (i *
                   Canvas.TextHeight(Memo1.Lines.Strings[i])),
                   Memo1.Lines.Strings[i]);      Canvas.Brush.Color := clBlack;
      Canvas.FrameRect(r);
      EndDoc;
    end;
end;

Answer 2

用一个memo就可实现+loadfromfile+打印预览不行吗？

Answer 3

一个label用来显示...(比较省资源,还不让修改)
加一个自带的打印控件..
完成,....给分...!!

Answer 4

hansion3406(阿木)，你好，写完整了才给分呢，呵呵。我需急用，希望高手指点。