Subject | Re: [IBO] IBO - IB_String vs AnsiString |
---|---|
Author | m. Th. |
Post date | 2009-04-08T16:24:36Z |
Hans wrote:
IBODatabase.pas? Perhaps I'm missing something?
TIBODatabase is declared in IBODataSet.pas.
The SetText there is:
1. Bounded to TIBOFloatField
2. The overriding version doesn't try to fix the Unicode issue
Here's the code:
procedure TIBOFloatField.SetText( const AValue: string );
begin
if ThousandSeparator = ',' then
inherited SetText( strip_char( AValue, ',' ) )
else
if ThousandSeparator = '.' then
inherited SetText( strip_char( AValue, '.' ) )
else
inherited SetText( AValue );
end;
Perhaps someone can clarify the things?
> This line copied from the d2009 version of IBODastabase.pas:???
>
> procedure SetText( const AValue: string ); override;
IBODatabase.pas? Perhaps I'm missing something?
TIBODatabase is declared in IBODataSet.pas.
The SetText there is:
1. Bounded to TIBOFloatField
2. The overriding version doesn't try to fix the Unicode issue
Here's the code:
procedure TIBOFloatField.SetText( const AValue: string );
begin
if ThousandSeparator = ',' then
inherited SetText( strip_char( AValue, ',' ) )
else
if ThousandSeparator = '.' then
inherited SetText( strip_char( AValue, '.' ) )
else
inherited SetText( AValue );
end;
Perhaps someone can clarify the things?