Текущий архив: 2003.03.03;
Скачать: CL | DM;

Вниз

КАК ПЕЧАТАТЬ 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;

---

← →
jack128 ©   (2003-02-19 21:46) [4]

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

---

← →
Pat ©   (2003-02-19 23:32) [5]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.03.03;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.045 c