Как распечатать текст из Memo?

Posted by obzor under Delphi

Как распечатать текст из Memo?

DeKot

В компоненте Memo текст находится в виде Lines : TString , а процедура Canvas.TextOut(x,y,_text) работает со строкой _text: String.
Поэтому сначала выводим на канву построчно текст из Memo, а уж затем канву выводим на принтер.
Процедура построчного вывода может быть следующей:

procedure TextFromMemoOnCanvas;
var  i: byte;
     number: integer; //  количество строк в Мемо
     str: string;
begin
  number:= Form1.Memo1.Lines.Count;
  Form1.Canvas.Font.Size:= 15;
  for i:= 0 to number do
  begin
    str:= Form1.Memo1.Lines[ i ];
    Form1.Canvas.TextOut(50,50 + 25 * i,str);
  end;
end;

тема на форуме

Похожие статьи

• Выбор записей из ListBox в соответствии со значением ComboBox и размещение результата в Memo
• Чтение определенный строки из текстового файла
• Склеить текст в memo
• Random слов в Memo
• Случайная строка из текстового файла
• Использовать переменную окружения в пути файла
• Поиск нескольких слов в строке
• Разность двух полей Memo
• Загрузить файл в Memo с помощью UserName
• Загрузить два файла в Memo