[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;

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