Как скрыть пустой Memo из печати?

Комментарии

• gpi

  December 2005 отредактировано December 2005

  Похоже, в мемо1 пустая последняя строка, т.е. пустая строка+Enter
• Andrew_Sh г.Минск

  December 2005 отредактировано December 2005

  Aleksandr. написал:

  Текст в Memo может быть пустым, но при этом ChildBand, на которой он лежит, все равно оставляет какое-то место.
  Попытался ChildBand, содержащему этот Memo, на BeforePrint сделать проверку Child1.Visible:=NOT (Memo1.Text=''), реакция нулевая.

   Child1.Visible:=NOT (Memo1.Text='')
  

  так не будет работать.
  
  Проверяйте значение самого поля/выражения в OnBeforePrint для Child-а

  procedure Child1OnBeforePrint(Sender: TfrxComponent);
  begin
    TfrxBand(sender).Visible := <DataSetName."FieldName"> = '';
  end;
  

  где <DataSetName."FieldName"> поле, которе выводится в Memo1.
  Если в поле могут содержаться пробелы, то используйте в проверяемом выражении функцию Trim.
• Aleksandr.

  December 2005 отредактировано 16:27

  По барабану. Сделал так:
  var
  s : string;
  begin
  s:=Trim(<frDS."TEXT">);
  while Pos(#13#10,s)<>0 do
  s:=Trim(Copy(s,1,Pos(#13#10,s)-1));
  Child1.Visible:=s<>''
  end;
  
  все равно видна.
• gpi

  December 2005 отредактировано December 2005

  написал:

  так не будет работать

  У меня работает: http://rapidshare.de/files/9688368/test.fr3.html
  А использование Trim - хорошая идея для удаления лишних Enter
  
  FR Team
  Что-то не получается создать сообщение с вложением
  
  Добавлено
  Andrew_Sh
  Согласен. При выводе поля из датасета работать не будет.