[anghela]

Не получается вывести на печать данные из поля мемо.
Нашла такой код:
Код:

Код:

procedure TForm6_dover.Button1Click(Sender: TObject);
var f:TextFile;
    i:integer;
begin
  PrintDialog1.Execute;
  //AssignPrn(f);
  try
  Rewrite(f);
  for i:=0 to Memo1.Lines.Count-1 do
  Writeln(f, Memo1.Lines[i]);
  finally
  CloseFile(f);
end;
end;

не работает. Может кто знает, как справится с проблемой?

[poli-smen]

Сообщение от anghela

Не получается вывести на печать данные из поля мемо.
Нашла такой код:
Код:

Код:

procedure TForm6_dover.Button1Click(Sender: TObject);
var f:TextFile;
    i:integer;
begin
  PrintDialog1.Execute;
  //AssignPrn(f);
  try
  Rewrite(f);
  for i:=0 to Memo1.Lines.Count-1 do
  Writeln(f, Memo1.Lines[i]);
  finally
  CloseFile(f);
end;
end;

не работает. Может кто знает, как справится с проблемой?

Не работает наверное потому что почему-то закомментирована нужная строка?

[anghela]

закомментирована она т.к при запуске на ней выходит ошибка. Что не так написано?

[poli-smen]

Сообщение от anghela

закомментирована она т.к при запуске на ней выходит ошибка. Что не так написано?

Ошибка выходит потому что нужно указать (в uses) модуль в котором эта процедура описана. А описана она в модуле Printers. Это легко можно узнать если на ней стать и нажать F1. Справка вообще великая сила - не нужно ей пренебрегать.

[anghela]

Спасибо огромное! Все работает)))