floating point - Make VarToDoubleAsString use Delphi settings (not OS settings) -

-

when 1 assigns variant containing string value floating point variable delphi calls vartodoubleasstring conversion, in turn uses os settings decimal , thousand separator (via varr8fromstr). problematic if 1 has change sysutils.decimalseparator , sysutils.thousandseparator. example run following program:

program varstrtofloat;  {$apptype console}  uses   sysutils,   math;  function formatfloatusingdelphisettings(value: extended): string; begin   result := formatfloat('#,##0.00', value); end;  procedure test(const amsg: string); var   r1, r2: extended;   s1, s2: string;   v: variant; begin   r1 := 5432.1;   s1 := formatfloatusingdelphisettings(r1);   v := s1; // <== conversion uses os settings   r2 := v;   s2 := formatfloatusingdelphisettings(r2);    write(amsg: 8, s1: 10, s2: 10, '  ');   if samevalue(r1, r2)     writeln('ok')   else     writeln('fail'); end;  procedure swapem; var   tmp: char; begin   tmp := decimalseparator;   decimalseparator := thousandseparator;   thousandseparator := tmp; end;  begin   test('default');   swapem;   test('changed');   readln; end.

the first test works fine, second 1 fails.

is there way make variant conversion use sysutils.decimalseparator , sysutils.thousandseparator?

you can replace varr8fromstr function in varutils.pas liking, , vartodoubleasstring use instead:

function myconversion(const strin: widestring; lcid: integer; dwflags: longint;     out dblout: double): hresult; stdcall; const   cresult: array [false..true] of hresult = (var_invalidarg, var_ok); var   s: string; begin   s := stringreplace(strin, thousandseparator, '', [rfreplaceall]);   result := cresult[trystrtofloat(s, dblout)]; end;  [...]  begin   varutils.varr8fromstr := myconversion;   [...]

Comments

Post a Comment

Popular posts from this blog

Javascript line number mapping -

-
magically formatted comments change reported line number of javascript errors in browsers; this: //@line n "f" n line number , f file name. unfortunately, //@line appears ungoogleable. know there documentation on feature, , browsers support it? (i found references here , here .) from can find available in mozilla based browsers. it using js_setoptions command can turn these options on or off depending on values passed. https://developer.mozilla.org/en/js_setoptions
Read more

c# - Is it possible to remove an existing registration from Autofac container builder? -

-
something along lines: builder.registertype<mytype>().as<itype>(); builder.registertype<mytype2>().as<itype>(); builder.deregistertype<mytype>().as<itype>() var container = builder.build(); var types = container.resolve<ienumerable<itype>>(); assert.istrue(types.count == 1); assert.istrue(types[0].gettype == typeof(mytype2)); scenario: go through bunch of assemblies , go register types want make sure have 1 implementation of given type. need before create container. track on own nice if autofac me bit. this cannot done directly using containerbuilder , unless start on new one. mind you, having first built container should able construct new container filtering away unwanted types , reusing registrations first container. this: ... var container = builder.build(); builder = new containerbuilder(); var components = container.componentregistry.registrations .where(cr => cr.activator.limittype != typ...
Read more

php - Mysql PK and FK char(36) vs int(10) -

-
i have read mysql can handle indexes , searches better if tables keys integers rather char(36) uuid's. is worth converting int(10)? note: use 1 server , have have plans use multiple databases concurrently therefore removing 1 of big reasons using uuid. our tables innodb if makes difference. thanks in advance. usually rdbms can handle integer keys pk more efficient, other datatypes. reason how build index column, yes: long dont require string (or other typed) keys, should use integers. however: char(36) , int(10) far away being equal, because int(10) much smaller, char(36). dont know, if require many different keys, should keep in mind. update, complete last paragraph: int(10) 32-bit, char(36) 36 - ^byte^ (= 288-bit). not mean, int consumes less space, means, char(36) has 4 times more different keys.
Read more