TOracleDataSet . RecordChanged (Q: TOracleQuery): Boolean;

[Andrey Maximenko. Ukraine]

Hi, All!
Hi, Marco!

Can AllRoundAutomation change in function TOracleDataSet.RecordChanged(Q: TOracleQuery): Boolean next code

if (fq >= 0) and not CompareFieldToVariant(Fields[fd], Q.Field(fq), True) then Exit;

to

if (fq >= 0) and not CompareFieldToVariant(Fields[fd], Q.Field(fq)) then begin
       if Debug then begin
          try
            ShowMessage('Compare failed in field  ' + Fields[fd].FieldName +
                        ', values ' + VarToStr(Fields[fd].Value) + ' and ' + VarToStr(Q.Field(fq)));
          except
          end;
       end;
       exit;
    end;

????

Wbr

 

[Marco Kalter]

I have added this to the list of enhancement requests.

 

[Andrey Maximenko. Ukraine]

Maybe, add to TOracleSession property like ErrorString or TDoaErrorObject, and write to this property from all objects all error information, which not in raise_message?
------------------------------------------
Thanks
------------------------------------------
My English - isn't English, I know