<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=x-mac-ce" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
Hi Joost,<br>
thanks!<br>
Thinking about TFmtBCDField it seems to me, that also dsparams.inc must
be adjusted to support ftFMTBcd ... add AsBCD: TBCD etc. ... at least
my test with new TSQLite3Connection shows, that there is missing it
(when applyng updates to record)<br>
Do you have already finished implementing ftFMTBcd into
TSQLite3Connection ?<br>
<br>
<blockquote cite="mid:1298411861.8503.2.camel@wsjoost.cnoc.lan"
type="cite"><br>
<blockquote type="cite">
<pre wrap="">4. Add 3th parameter to TryStrToBCD( const aValue : FmtBCDStringtype;
var BCD : tBCD; DecimalSeparator : char = #0) : Boolean;
so we can supply directly decimal separator '.' used in SQL and to avoid
saving existing, set '.' and then restoring ...
<a class="moz-txt-link-freetext" href="http://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp?r1=16948&r2=16954">http://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp?r1=16948&r2=16954</a>
(like TryStrToDate, TryStrToTime)
or
add overloaded TryStrToBCD( const aValue : FmtBCDStringtype; var BCD :
tBCD; FormatSettings : TFormatSettings) : Boolean;
(like TryStrToFloat)
</pre>
</blockquote>
<pre wrap=""><!---->
And could you add a bug-report for this? I think that Marco or MvC
should have a look at it and have to decide which design is best and
also compatible to Delphi. Then the db-changes can be made.
</pre>
</blockquote>
Bug report is here <a class="moz-txt-link-freetext" href="http://bugs.freepascal.org/view.php?id=18807">http://bugs.freepascal.org/view.php?id=18807</a><br>
If this way will be approved, then we can very nice use it (no need to
initialize something, store/restore) for example:<br>
Ê ...<br>
Ê if not TryStrToBCD(bcdstr,bcd,SQLFormatSettings) thenÊÊ <br>
Ê ...<br>
we must only add into TSQLConnection:<br>
ÊÊÊ property SQLFormatSettings: TFormatSettings read
FSQLServerFormatSettings;<br>
<br>
FSQLServerFormatSetting already exists as private variable<br>
<br>
Laco.<br>
<br>
</body>
</html>