как распечатать memo ?

← →
@gent © (2006-03-12 17:39) [0]

Я не могу распечатать то что у меня находиться в компоненте memo.
var
To_Prn : TextFile;
begin
AssignPrn(To_Prn);
Rewrite(To_Prn);
Writeln(To_Prn, Memo6.lines);-и вот тут ругается !
CloseFile(To_Prn);
end;
А вот ошибка - ([Ошибка] Unit2.pas(136): Illegal type in Write/Writeln statement).
Что он от меня хочет ?

← →
Ega23 © (2006-03-12 17:54) [1]

var To_Prn : TextFile; i : Integer; begin AssignPrn(To_Prn); Rewrite(To_Prn); for i:=0 to Memo6.lines.Count-1 do Writeln(To_Prn, Memo6.lines[i]);-и вот тут ругается ! CloseFile(To_Prn); end;

хочет СТРОКУ, а ты его кормишь списком строк

как распечатать memo ? Найти похожие ветки