Скрывать Memo по условию

Комментарии

• gpi

  June 2006 отредактировано 22:00

  Добавьте код в обработчик того бэнда, который содержит мемо
• Ivanych

  June 2006 отредактировано 22:00

  Вот, указал в обработчике событий бэнда:
  
  begin
  if [DialogForm.qr1."Fax"]<> NULL
  then
  Memo167.Visible := True
  else
  Memo167.Visible := False
  end
  
  Memo167 вида: "ф. [DialogForm.qr1."Fax"],"
  
  В текущем состоянии данных из "Fax" нет, а в отчете все равно отображается
  "ф.,"
  
  Подскажите, что не так я делаю?!
• Geraf

  June 2006 отредактировано 22:00

  Я так полагаю [DialogForm.qr1."Fax"] имеет тип string....
  Попробуйте следующее в Memo167.Memo поставте переменную, например, [FAX], ниже напишите:
  begin
  if [DialogForm.qr1."Fax"] = '' then
  FAX := ''
  else
  FAX := "ф. " + [DialogForm.qr1."Fax"] ;
  end;
• Ivanych

  June 2006 отредактировано 22:00

  При таком коде, как Вы предложили:
  
  begin
  if [DialogForm.qr1."Fax"] = '' then
  FAX := ''
  else
  FAX := "ф. " + [DialogForm.qr1."Fax"] ;
  end;
  end
  
  при отсутствии значений "Fax"(тип поля nvarchar(50)) Memo пуст, но в обратном случае в отчете отображается "0".
  
  Получается это не подходит...
  Как быть?
• Geraf

  June 2006 отредактировано 22:00

  попробуйте поэксперементировать со строкой, написать не
  FAX := "ф. " + [DialogForm.qr1."Fax"] ;
  ,а
  FAX := "ф. [DialogForm.qr1."Fax"],"
  иногда помогает)
• gpi

  June 2006 отредактировано 22:00

  попробуйте

  begin
  Memo167.Visible:=not (([DialogForm.qr1."Fax"]=NULL) or ([DialogForm.qr1."Fax"]=0) or (trim([DialogForm.qr1."Fax"])=''));
  end
  
• Ivanych

  June 2006 отредактировано 22:00

  Спасибо qpi за совет!
  
  Сделал также, только упростил с учетом типа поля nvarchar:
  
  begin
  Memo167.Visible:=not (([DialogForm.qr1."Fax"]=NULL) or
  (trim([DialogForm.qr1."Fax"])=''));
  end