Zmiana separatora dziesiętnego

Zmiana separatora dziesiętnego
axel234
  • Rejestracja:prawie 18 lat
  • Ostatnio:dzień
0

Panowie i Panie!

Czy jest możliwość zmiany systemowego symbolu dziesiętnego jakąś krótką procedurką podpiętą np pod kliknięcie buttona?

cimak
  • Rejestracja:ponad 22 lata
  • Ostatnio:ponad 9 lat
  • Postów:1668
0

szukales?
cos mi sie wydaje ze nie bo ja znalazlem to momentalnie uzywajac wyszukiwarki forum i googli.
http://4programmers.net/Forum/Delphi_Pascal/39079-Zanim_cos_napiszesz_-_CZYTAJ_TO

edytowany 1x, ostatnio: cimak
madmike
  • Rejestracja:prawie 20 lat
  • Ostatnio:ponad 5 lat
0

Nie szukał, bo po co...

Z pierwszej stronki w GOOGLE, które jak zgaduję u Ciebie nie działa?.

Kopiuj
var
  amount : Currency;
begin
  amount := 12.34;    // 12 pounds 34 pence

  // Display with the default decimal point character
  ShowMessage('Amount = '+FloatToStrF(amount, ffCurrency, 10, 2));

  // Display with a new decimal point character
  DecimalSeparator := '|';
  ShowMessage('Amount = '+FloatToStrF(amount, ffCurrency, 10, 2));
end;

edytowany 1x, ostatnio: madmike
axel234
  • Rejestracja:prawie 18 lat
  • Ostatnio:dzień
0

Tak, i to dość długo. Czyżby do kitu było to moje szukanie? :-/

Już wiem o co chodzi, niedokładnie się wyraziłem czego szukam: czy istnieje możliwość zmiany separatora ustawionego w systemie operacyjnym w ust. regionalnych?

edytowany 1x, ostatnio: axel234
cimak
tak bylo do kitu. wpisz w goolach "delphi set decimal separator"
cimak
ja Cie dobrze zrozumialem bo napisales "systemogego". ale ta informacja wlasnie jest w googlach. wybacz, ale nie wierze ze szukales:P
madmike
  • Rejestracja:prawie 20 lat
  • Ostatnio:ponad 5 lat
0

axel234
  • Rejestracja:prawie 18 lat
  • Ostatnio:dzień
0

Wpisz zatem po polsku tę frazę w googlach i sprawdź czy jest aż tyle odpowiedzi.

madmike
  • Rejestracja:prawie 20 lat
  • Ostatnio:ponad 5 lat
0
  1. Wpisuję w google frazę: delphi zmiany systemowego symbolu dziesiętnego
  2. Wyświetlają się wyniki
  3. Jadę na sam dół
  4. Czytam: Zobacz wyniki wyszukiwania przetłumaczone z języka angielskiego dla: delphi zmiany systemowego symbolu dziesiętnego
  5. Naciskam lewy klawisz myszki
  6. Znajduję odpowiedź na pierwszym miejscu wyszukiwania
  7. Uznaję, że nie umiesz korzystać z google ;)
  8. GOTO 7

edytowany 1x, ostatnio: madmike
cimak
  • Rejestracja:ponad 22 lata
  • Ostatnio:ponad 9 lat
  • Postów:1668
0

dlatego ja nigdy nie szukam na polskich stronach. najwiecej informacji znajdziesz po angielsku, a jesli go nie znasz to juz nie problem tego forum.

madmike
Tych najbardziej banalnych rzeczy (podstawy) po polskiemu też się sporo znajdzie. Tylko trzeba chcieć...
0

można np. za pomocą skryptu ....
w notatniku wpiszesz sobie
................................................................................................................................

Option Explicit

Dim WSHShell, n, MyBox, p, itemtype, Title, vbdefaultbutton

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_CURRENT_USER\Control Panel\International"
p = p & "sDecimal"
itemtype = "REG_SZ"
n = "."

WSHShell.RegWrite p, n, itemtype
Title = "Separator dziesiętny został zmieniony" & vbCR
Title = Title & "na kropke"
MyBox = MsgBox(Title,64,"Zakończone")

................................................................................................................................

zapisz z rozszerzeniem .vbs

w tym przykładzie skrypt zmienia separator na kropke,
rodzaj separatora ustawiany jest w zmiennej "n"

KA
No drogi archeologu tak temat ma ponad 1,5 roku roku i go odkopujesz i jeszcze z VBS tu... jak by w Delphi nie można było wpisać wartości do rejestru nie mówiąc o użyciu przeznaczonej do tego funkcji np. SetLocaleInfo :D

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.