Форум: "Основная";
Текущий архив: 2003.10.27;
Скачать: [xml.tar.bz2];

Вниз

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

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

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

---

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

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

---

← →
clickmaker   (2003-10-14 11:27) [2]

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;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.10.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.014 c