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

Aleksandr.

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

gpi

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

Andrew_Sh

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.

По барабану. Сделал так:
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

написал:

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

У меня работает: http://rapidshare.de/files/9688368/test.fr3.html
А использование Trim - хорошая идея для удаления лишних Enter

FR Team
Что-то не получается создать сообщение с вложением

Добавлено
Andrew_Sh
Согласен. При выводе поля из датасета работать не будет.