TIWCGJQEdit DataLink fires SetText

[paubc]

Hi,

I'm using DXE6, IW v14.1.6 and IWCG v3.0.0.115.

Regards.

[assapan]

Hi,
if you debug the application isn't the exception fired when the clientdatatset.open ?
don't you have same problem if you disconnect the datasetprovider ?

[assapan]

WHy don't you indicate to clientdataset the fields type ? if there is no field type the variant "value" is not defined ! ?
Can you try this ?

ClientDataSet.FieldDefs.Add('SOME_TEXT',TFieldType.ftString,60);
ClientDataSet.FieldDefs.Add('PERCENT_DONE',TFieldType.ftFloat);
ClientDataSet.CreateDataSet;
ClientDataSet.LogChanges := False;
ClientDataSet.Append;
ClientDataSet.FieldByName('SOME_TEXT').Value := 'This is for some text';
ClientDataSet.FieldByName('PERCENT_DONE').AsFloat := 75.45;

[paubc]

Hi,
if you debug the application isn't the exception fired when the clientdatatset.open ?
don't you have same problem if you disconnect the datasetprovider ?

The ClientDataSet is opened here ...

procedure TIWFRMTest_DisplayFormat.DoCDS;
begin
ClientDataSet.CreateDataSet;

... with no exception at all.

The exception is fired when CGDevTools framework (I don't know why) assign the value to the DataSet.

Regards.

[paubc]

WHy don't you indicate to clientdataset the fields type ? if there is no field type the variant "value" is not defined ! ?
Can you try this ?

ClientDataSet.FieldDefs.Add('SOME_TEXT',TFieldType.ftString,60);
ClientDataSet.FieldDefs.Add('PERCENT_DONE',TFieldType.ftFloat);
ClientDataSet.CreateDataSet;
ClientDataSet.LogChanges := False;
ClientDataSet.Append;
ClientDataSet.FieldByName('SOME_TEXT').Value := 'This is for some text';
ClientDataSet.FieldByName('PERCENT_DONE').AsFloat := 75.45;

Form the VCL implementation:
- in TField class:
property Value: Variant read GetAsVariant write SetAsVariant;

procedure TField.SetAsVariant(const Value: Variant);
begin
if VarIsNull(Value) then
Clear
else
try
SetVarValue(Value);
except
on EVariantError do DatabaseErrorFmt(SFieldValueError, [DisplayName]);
end;
end;

- in TFloatField class:
procedure SetVarValue(const Value: Variant); override;

procedure TFloatField.SetVarValue(const Value: Variant);
begin
SetAsFloat(Value);
end;


So, as you can see, what you say is not correct.
This line ...
ClientDataSet.FieldByName('PERCENT_DONE').Value := 75.45;
... do the same as this one ...
ClientDataSet.FieldByName('PERCENT_DONE').AsFloat := 75.45;

Regards.

[assapan]

Hi, what warns me is the exception type EDatabaseError, i tried your source on a server with english settings decimal separator ='.' and french settings decimal separtor =',' and everything works !!!!

can you compile and post the exe so i could test here ?

[Alexander Bulei]

Hi,

I'm using DXE6, IW v14.1.6 and IWCG v3.0.0.115.

You should try the recent versions (3.5.x or 4.x.x).

Best Regards.

[paubc]

Hi,

I installed IW 14.1.13 and CGDevTools 3.5.0.231
Now it seems to be working ok.

Regards