[Delphi_Source]

Доброго времени суток, уважаемые пользователи!
Помогите разработать приложение для вывода содержимого компонента класса TMemo на печать с использованием вывода на принтер, как в текстовый файл. Приложение должно иметь возможность настройки шрифта выводимого текста.
Спасибо за внимание!

[M.A.D.M.A.N.]

Класс TPrinter.

[Alegun]

...Приложение должно иметь возможность настройки шрифта выводимого текста...

Код:

procedure TForm1.Button1click(sender: tobject); 
begin 
 if FontDialog1.Execute then Memo1.Font:= FontDialog1.Font; 
end;

...Помогите разработать приложение для вывода содержимого компонента класса TMemo на печать с использованием вывода на принтер, как в текстовый файл...

Код:

uses Printers; 
procedure TForm1.Button2Click(sender: tobject); 
var 
 Prn: TextFile; 
 i: integer; 
begin 
 AssignPrn(Prn); // Переназначаем вывод в файл на вывод в принтер 
 Rewrite(Prn); // Готовим принтер к печати
 Printer.Canvas.Font:= Memo1.Font; 

 // Цикл печати: 
 for i := 0 to Memo1.lines.Count - 1 do Writeln(Prn, Memo1.Lines[i]); 

 CloseFile(Prn);

end;

[Delphi_Source]

Сообщение от Alegun

Код:

procedure TForm1.Button1click(sender: tobject); 
begin 
 if FontDialog1.Execute then Memo1.Font:= FontDialog1.Font; 
end;

Код:

uses Printers; 
procedure TForm1.Button2Click(sender: tobject); 
var 
 Prn: TextFile; 
 i: integer; 
begin 
 AssignPrn(Prn); // Переназначаем вывод в файл на вывод в принтер 
 Rewrite(Prn); // Готовим принтер к печати
 Printer.Canvas.Font:= Memo1.Font; 

 // Цикл печати: 
 for i := 0 to Memo1.lines.Count - 1 do Writeln(Prn, Memo1.Lines[i]); 

 CloseFile(Prn);

end;

Почему не выводится ничего в текстовый файл, а сразу идет на печать?

[poli-smen]

Сообщение от Delphi_Source

Почему не выводится ничего в текстовый файл, а сразу идет на печать?

А где здесь вывод в файл? Для вывода в файл нужно использовать AssignFile вместо AssignPrn.

[Delphi_Source]

Сообщение от poli-smen

А где здесь вывод в файл? Для вывода в файл нужно использовать AssignFile вместо AssignPrn.

Ошибка такого плана:

[Error] Unit1.pas(48): Not enough actual parameters