Печать текстового файла

← →
weak (2003-10-14 11:19) [0]

Добрый день! Подскажите пожалуйста как распечатать текстовый файл из Delphi. Большое спасибо.

← →
Семен Сорокин © (2003-10-14 11:26) [1]

1. воспользоваться дизайнером отчетов
2. можно через канву принтера Printer.BeginDoc...Printer.EndDoc
3. TRichEdit.Print
и т.д.

var
List: TStringList;
Prn: TextFile;
i: word;
begin
List := TStringList.Create;
try
List.LoadFromFile(FileName);
AssignPrn(Prn);
try
Rewrite(Prn);
try
for i := 0 to Strings.Count - 1 do
writeln(Prn, Strings.Strings[i]);
finally
CloseFile(Prn);
end;
finally
List.Free;
end;
except
on EInOutError do
MessageDlg("Error Printing Text.", mtError, [mbOk], 0);
end;

Печать текстового файла Найти похожие ветки