简单问题,怎么打印字符串,100分送!

Question

请详细说明,我太菜了.(努力中...)

Answer 1

DDG的例子：
procedure TMdiEditForm.mmiPrintClick(Sender: TObject);
var
  i: integer;
  PText: TextFile;
begin
  inherited;
  if PrintDialog.Execute then
  begin
    AssignPrn(PText);
    Rewrite(PText);
    try
      Printer.Canvas.Font := memMainMemo.Font;
      for i := 0 to memMainMemo.Lines.Count -1 do
        writeln(PText, memMainMemo.Lines[i]);
    finally
      CloseFile(PText);
    end;
  end;
  end;

Answer 2

在 usesn 块中加入引用 printers,
然后就可以直接调用 Printer 对象的方法了,如:var
  Str1:String;
  x,y: Integer;
begin
  ...
  printer.Print(100,20,'abcdefg12345');//100为起始位的横坐标
  Str1:='MicroSoft';                   //20 为纵坐标
  x:=200;
  y:=100;
  printer.Print(x,y,Str1);
  ...
end;