[ XGhost @ 08.11.2018. 00:21 ] @
Do sad su normalno radile procedure

procedure TMip1023.PromjenaSeparatoraUTacku;
const cs1 : pchar = 'Windows';
begin
SetLocaleInfo( LOCALE_SYSTEM_DEFAULT, LOCALE_SDECIMAL,'.');
SendMessage( HWND_BROADCAST, WM_SETTINGCHANGE, 0, LongInt(cs1));
end;


procedure TMip1023.PromjenaSeparatoraUZarez;
const cs1 : pchar = 'Windows';
begin
SetLocaleInfo( LOCALE_SYSTEM_DEFAULT, LOCALE_SDECIMAL,',');
SendMessage( HWND_BROADCAST, WM_SETTINGCHANGE, 0, LongInt(cs1));
end;

Sa poslednjim verzijama windowsa ne funkcionira.
Jel ima netko kakvu ideju?
[ savkic @ 08.11.2018. 05:40 ] @
Meni radi (Win10), dobijas li neku gresku sa:
Win32Check(SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SDECIMAL, '.'));
[ Predrag Supurovic @ 08.11.2018. 06:11 ] @
Jedna od skorijih update-a Win10 jeste nesto pokarabačio sa regionalnim podešavanjima. Neki programi imaju problemaposle update ai svi problemi ukazuju na "decimalnu tačku" ili nešto slično.
[ XGhost @ 08.11.2018. 10:21 ] @
I meni je radilo do poslednjih nadogradnji. Medjutim kako ce vjerovatno prije ili kasnije svi nadograditi sistem trebam naci stabilno rjesenje.

Mislim da je problem u dijelu koda
SendMessage( HWND_BROADCAST, WM_SETTINGCHANGE, 0, LongInt(cs1));

Kad se on izvrsi sistem jednostavno blokira, vjerovatno je onemogucena promjena na ovaj nacin zadnjim nadogradnjama.
Na MS stranicama nisam nista uspio naci kao ni na ebracadero.
Konkretno kod koristim prilikom izvoza podataka u xml za aplikaciju koja koristi '.' kao decimalni separator.
Do sad sam mijenjao separator prilikom exporta podataka i nakon toga vracao na staro sto je sad onemoguceno.
Jel mozda postoji nacin da promjenim separator samo u Query componenti (koristim UNIDAC).
[ salvaric @ 08.11.2018. 12:34 ] @
Pokušaj da odradiš update Jave na tom kompu, skoro sam imaosl problem sa štampom dokumenata, nije moglo nakon update Win 7, i posle osveženja Jave proradilo je, koliko sam negde naleteo na netu, problem je sa nekim dozvolama pristupa. Možda i ne pomogne, al kod mene je rešilo problem.
[ ravni @ 08.11.2018. 14:41 ] @
Sto kaze, deluje kao globalno resenje za lokalni problem.

Mozda bi podaci mogli da se izvezu u Excel kao brojevi?

Ili, da se prilikom eksporta eksplicitno navede decimalni separator..

kucam napamet

Code:
mojBroj := 123.456
formatSettings := TFormatSettings.Create
formatSettings.DecimalSeparator := '.'
mojString := Format ('%8.2n', [mojBroj], formatSettings); 


http://docwiki.embarcadero.com...okyo/en/System.SysUtils.Format
http://docwiki.embarcadero.com...ystem.SysUtils.TFormatSettings