~~~~~~~~~~~~~~~~~~~~~~~~~
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?
