Форматирование

User

В мемо объекте нужно отобразить значения 2х полей, причем в отформатированном виде, т.е.

число 0,011 отображается должно как "0,011", а не ",011" . Применяю формат

[frxDBDataset2."specnorm1" #n%1,3f]
[frxDBDataset2."specnorm" #n%1,3f]

К сожалению, когда поле = NULL, выдает сообщение об ошибке работы с вариантами. Я считаю, что в коде компонента FastReport необходимо совершать проверку на NULL прежде чем совершать форматировани (видимо ее там нет).

Ест ли другой путь решения этой проблемы, или укажите место исправления кода компонента

AlexTZ

Проверил сейчас на демке, все работает без ошибок. Если поле = Null, то выводится пустое место.

User

я использую версию 3,07 а Вы какую из демок. И я надеюсь Вы эксперимент ставили с заданием аналогичного форматирования. Без формата все ОК работает.

AlexTZ

Демка 3.09, формат аналогичный.

User

В версии 3.07

в модуле frxClass

После изменения куска кода

<span style='color:red'>function TfrxCustomMemoView.CalcAndFormat(const Expr: String): String;
.........
.........
.........
if FHideZeros and (TVarData(FValue).VType <> varString) and
(TVarData(FValue).VType <> varOleStr) and (FValue = 0) then
Result := '' else
Result := FormatData(FValue, Format);
.........
.........
.........
</span>

следующим образом
<span style='color:green'>.........
.........
.........
if ((TVarData(FValue).VType <> varString)
and (TVarData(FValue).VType <> varOleStr))
or (FHideZeros and (FValue = 0))
or VarIsNull(FValue) or (FValue='')
then
Result := '' else
Result := FormatData(FValue, Format);
.........
.........
.........</span>
Теперь форматированый вывод заработал

User

SORRY так нельзя. Перестала работать функция SET. Надо еще повозиться

User

Вот так вроде правильно. У меня вроде все работет после этих изменений

if ((TVarData(FValue).VType <> varString)
and (TVarData(FValue).VType <> varOleStr)
and FHideZeros and (FValue = 0))
then
Result := '' else
if ((TVarData(FValue).VType=varString) or
(TVarData(FValue).VType=varOleStr))
and (FValue='')
then
Result := FormatData(FValue) else
Result := FormatData(FValue, Format);

Stranger

Ой. И все это будет работать если стоит крыжик Project-Options-Compiler-Complete bolean eval?
Нельзя проверять FValue = ''. TVarData(FValue).VOleStr = '' либо if ((TVarData(FValue).VType = varString) or (TVarData(FValue).VType = varOleStr) then if (FValue = '') либо обрамить то что ты написал директивами {$B-} {$B+}, чтоб до FValue = '' не доходило дело если тип не строковый...
Эх...

User

О! Это уже разговор.

Согласен, что if ((TVarData(FValue).VType = varString) or (TVarData(FValue).VType = varOleStr) then if (FValue = '')

будет понадежнее.

П.С. Что за необходимость включать вражеский крыжик Project-Options-Compiler-Complete bolean eval, хотя наверное когда пишеш компоненты этот вариант рассматривать необходимо

Stranger

Если крыжик есть то его обязательно включат