memo ausdrucken

[APP]

Hallo,

Zitat:

Q: How can I print all of the lines within a TMemo or TListbox component?

A: The function below accepts a TStrings object as a parameter and prints
out each string to the default printer. Because it uses a TStrings, the
function will work with any type of component that contains a
TStrings-type property, such as a TDBMemo or TOutline.

Delphi-Quellcode:

{ Begin code listing }

uses Printers;

procedure PrintStrings(Strings: TStrings);
var
  Prn: TextFile;
  i: word;
begin
  AssignPrn(Prn);
  try
    Rewrite(Prn);
    try
      for i := 0 to Strings.Count - 1 do
        writeln(Prn, Strings.Strings[i]);
    finally
      CloseFile(Prn);
    end;
  except
    on EInOutError do
      MessageDlg('Error Printing text.', mtError, [mbOk], 0);
  end;
end;

{ End code listing }

Zitat:

To print out the contents of a TMemo or TListbox, use the following
code:

Delphi-Quellcode:

PrintStrings(Memo1.Lines);

or

PrintStrings(Listbox1.Items);

gefunden auf codecentral.borland.com