AssignPrn(Prn);
Rewrite(Prn);
for i:=0 to Memo1.Lines.Count do
begin
writeln(Memo1.Lines);
end;
CloseFile(Prn);
Печать
Как заставить принтер печатать при нажатии на кнопку текст который находится в мемо?
Пишу это:
[cod]procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
AssignPrn(Prn);
Rewrite(Prn);
for i:=0 to Memo1.Lines.Count do
begin
writeln(Memo1.Lines);
end;
CloseFile(Prn);
end;[/cod]
и вот такие ошибки валяится
[Error] Unit1.pas(30): Undeclared identifier: 'AssignPrn'
[Error] Unit1.pas(31): Incompatible types
[Error] Unit1.pas(36): Incompatible types
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
[cod]procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
AssignPrn(Prn);
Rewrite(Prn);
for i:=0 to Memo1.Lines.Count do
begin
writeln(Memo1.Lines);
end;
CloseFile(Prn);
end;[/cod]
и вот такие ошибки валяится
[Error] Unit1.pas(30): Undeclared identifier: 'AssignPrn'
[Error] Unit1.pas(31): Incompatible types
[Error] Unit1.pas(36): Incompatible types
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Может, AssignFile?
Нет, AssignPrn.
2 In0stRAnez:
Неужели так сложно погуглить? Хотя конечно в самом начале я так же делал, сначала на форуме спрашивал, потом гуглил или жал F1. Переучили :)
Но если с такой элементарной ошибкой сложно разобраться, хоть книги почитай, потом за печать берись.
2 In0stRAnez:
Код:
var
prn:TextFile;
prn:TextFile;
Неужели так сложно погуглить? Хотя конечно в самом начале я так же делал, сначала на форуме спрашивал, потом гуглил или жал F1. Переучили :)
Но если с такой элементарной ошибкой сложно разобраться, хоть книги почитай, потом за печать берись.
I/O error 105 - вот такая ошибка вылетает при нажатии на печать
Говорю же гугл рулит
EInOutError + F1