КАК ПЕЧАТАТЬ TMEMO?

← →
Ahmad K (2003-02-18 23:52) [0]

и все...

← →
jack128 © (2003-02-19 00:29) [1]

простейший вариант - использовать AssignPrn(...)
и писать как в ткстовый файл...

← →
Ahmad K (2003-02-19 18:39) [2]

А как именно исходника нету?

← →
jack128 © (2003-02-19 21:41) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
MyFile: TextFile;
i : integer;
begin
AssignPrn(MyFile);
Rewrite(MyFile);
for i := 0 to Memo1.lines.Count - 1 do
Writeln(MyFile, Memo1.Lines[i]);
System.CloseFile(MyFile);
end;

Больше всего люблю копировать хелп на этот сайт :-)

>Ahmad K (18.02.03 23:52)
RichEdit не подойдет? :)

КАК ПЕЧАТАТЬ TMEMO? Найти похожие ветки