TMemo printing

~~~~~~~~~~~~~~~~~~~~~~~~~
uses printers;

procedure TForm1.PrintIt(Sender: TObject) ;
var
   PrintBuf: TextFile;
j : integer;
begin
   AssignPrn(PrintBuf) ;
   Rewrite(PrintBuf) ;
   try
     for j := 0 to Memo1.Lines.Count-1 do
       WriteLn(PrintBuf, Memo1.Lines[j]) ;
   finally
     CloseFile(PrintBuf) ;
   end;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Here are some more TMemo related articles: TMemo to the Max

Delphi tips navigator:
» Determine the actual size of a Blob field in a Table
« TMediaPlayer: What track am I on?

• 1
• 2
• 3
• 4
• 5