8 replies to this topic

[ernschd]

Hello,

i have a Sqlite-Database containing some integer values, for example 6410. I have to divide by 100, (= 64.10).
My try:

procedure TForm1.NxDBTextColumn1SetCell(Sender: TObject; ACol, ARow: Integer;
CellRect: TRect; CellState: TCellState);
var myText: string;
myValue: Double;
begin
myText := NextDBGrid1.Cells[Acol, Arow];
myValue := StrToInt(myText)/100;
myText := FloatToStr(myValue);
NextDBGrid1.Cells[Acol, Arow] := myText;
end;

But with this i get an exception "64,10 is not an valid integer value for Field..."
What's the right way to do this?

Thank you.

[Boki (Berg)]

Hi,

I think that this is more DB Field issue, but it may be that you have used to assign float value to TIntegerField?

Maybe this have helped you a little bit.

[ernschd]

I'll try.

But i have a general Question: how can i change the Celltext by runtime? For example, i like to insert the currency in a Field (125 Euro). The Property "TextAfter" seems not to work with an Memo-Field.
Or format the value of an Increment Column (001)?

Thanks.

[Boki (Berg)]

Hello

I will fix TextAfter with MemoField, it seems to be a bug.

Beside this, maybe you can look at OnApplyCell for assigning text virtually.

[ernschd]

Thanks.

Last question (hopefully): is it possible to display only filled cells? It looks strange if there is a very big table containing just two lines for example.

[Boki (Berg)]

Hi,

Not sure if I understand. Can you please send me screenshot?

[ernschd]

Sure. Here they are: the file "Current.png" is made with NextDBGrid, and the file "My Wish.png" looks like i want it.

Attached Files

•  Current.png   64.87KB   13 downloads
•  My Wish.png   348.66KB   11 downloads

[Boki (Berg)]

Hi,

Please very sorry again I am unable to see topic about what need to be done. Maybe because pics are quite bad in quality (much compressed?)

Can you please give me more details again. I am very sorry for asking more.

[ernschd]

I sent you an email.