[DUG]: TwwdbGrid

[John Christenhusz]

Hi folks,

I want to change the text in a TwwdbGrid for a particular item. The
following code doesn't work:

procedure TformREDB.dbgridSearchCalcCellColors(Sender: TObject; Field:
TField;
          State: TGridDrawState; Highlight: Boolean; AFont: TFont; ABrush:
TBrush);
begin
    if (field.name = 'tblClientPrice') and (tblClientType.asInteger = 2)
then
      field.text := '+ ' + field.text;
end;

It generates the following error:    '+ ' is not a valid floating point
value for field 'Price'

Any ideas how to solve this problem?

TIA

John.

winmail.dat