delphi - GetLocaleFormatSettings for LOCALE_INVARIANT returns the users settings under Windows XP German -


all numbers write files exchange purpose use following code:

getlocaleformatsettings(locale_invariant, fsinvariant); floattostrf(value, fsinvariant);

when read in number use this

getlocaleformatsettings(locale_invariant, fsinvariant); if trystrtofloat(value, floatval, fsinvariant)   result := floatval

that works under windows 7, incl. german version, fails in german version of windows xp.

the problem seems in getlocaleformatsettings procedure since gives me same values under locale_invariant , locale_default_user.

here code shows issue:

unit umain;  interface  uses   windows, messages, sysutils, variants, classes, graphics, controls, forms,   dialogs, grids, valedit;  type   tform1 = class(tform)     vleditor: tvaluelisteditor;     procedure formshow(sender: tobject);   private     { private declarations }   public     { public declarations }   end;  var   form1: tform1;  implementation  {$r *.dfm}  procedure tform1.formshow(sender: tobject); var   fsinvariant : tformatsettings;   fslocaleuser : tformatsettings; begin   getlocaleformatsettings(locale_invariant, fsinvariant);   vleditor.insertrow('invariant decimal seperator', fsinvariant.decimalseparator, true);   vleditor.insertrow('invariant thousand seperator', fsinvariant.thousandseparator , true);   vleditor.insertrow('invariant list seperator', fsinvariant.listseparator , true);    getlocaleformatsettings(locale_user_default, fslocaleuser);   vleditor.insertrow('locale decimal seperator', fslocaleuser.decimalseparator, true);   vleditor.insertrow('locale thousand seperator', fslocaleuser.thousandseparator, true);   vleditor.insertrow('locale list seperator', fslocaleuser.listseparator, true); end;  end.

when run exe in windows xp pro - sp3 - german, displays same characters same separators. in german windows 7, shows expected.

what missing here? how come gives different output?

thanks, thomas

update: getlocaleformatsettings checks first if lcid valid using kernel32 function isvalidlcid(lcid, lcid_installed). issue use of lcid_installed rather lcid_supported. locale_invariant supported, not installed on windows xp systems. therefore getlocaleformatsettings routine reverts users lcid.

what best way of fixing it? write own getlocaleformatsettings routine? change code in delphi's sysutils.pas file?

earlier versions of delphi did have problems initializing tformatsettings correctly. instance, d2010 have intialization bug regarding shortmonthnames, longmonthnames, shortdaynames, , longdaynames arrays when specified lcid not installed (but not affect example). there have been formatting-related bug fixes in newer releases.

in cases, calling setthreadlocale() , getformatsettings() in unit's initialization section helps address formatting issues.

fyi, getlocaleformatsettings() deprecated in recent releases, in favor of new tformatsettings.create() method:

procedure tform1.formshow(sender: tobject); var   fsinvariant : tformatsettings;   fslocaleuser : tformatsettings; begin   fsinvariant := tformatsettings.create(locale_invariant);   ...   fslocaleuser := tformatsettings.create(locale_user_default);   ... end;

Comments

Post a Comment

Popular posts from this blog

Why does Ruby on Rails generate add a blank line to the end of a file? -

running rails generate controller foo home results in: class foocontroller < application controller def home end end (there's nothing on line in actual file, blank line) is there purpose blank line? it's common use newline indicate end of line, last line. many editors (like vi, use) add in newline silently. consensus text files (especially in unix world) should end in newline, , there have been problems historically if wasn't present. why should text files end newline? the tool used count lines in file "wc" counts newlines in file, without trailing newline show 3 instead of 4. it improves readability of templates used in generator. consider: https://github.com/rails/rails/blob/master/railties/lib/rails/generators/rails/controller/templates/controller.rb to remove trailing newline, template have last line of: end<% end -%> instead of: end <% end -%> that seems less readable me. the discussion below refers ...
Read more

node.js - Bad Request - node js ajax post -

i'm using express 3.0 , node v0.11.0. have button submits form , i'm using ajax post data json object node server. client code is: $('#contact').submit(function(e) { console.log('submit called'); var formdata = json.stringify($('form').serializeobject()); console.log(formdata); $.ajax({ url: "http://localhost:3000/savedata/", type: "post", datatype: 'json', data: {objectdata: formdata}, contenttype: "application/json", complete: function() { console.log('process complete'); }, success: function(data) { console.log('process sucess'); }, error: function() { console.log('process error'); }, }); return false; }); then on server: var express = require('express'); var app = express(); app.set('views', __dirname + '/views'); app.set('view engine', 'jade'); app.use(express.bodyparser());...
Read more

keyboard - Smiles and long press feature in Android -

i've created android keyboard. how add features inserting smilies, , using long keypresses display symbols? to create long-press behavior allows select several options pop-up menu, follow guide (specifically pop-up menu section): http://developer.android.com/guide/topics/ui/menus.html smileys (also known emoticons) combination of keys, understood programs , parsed same way. have do, when clicks smiley face on keyboard, simulate pressing of key combination matching emoticon. example, when clicks smiley, should simulate key presses ':' , ')' :). here's list of emoticons: http://en.wikipedia.org/wiki/list_of_emoticons
Read more