Panowie i Panie!
Czy jest możliwość zmiany systemowego symbolu dziesiętnego jakąś krótką procedurką podpiętą np pod kliknięcie buttona?
- 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
- Rejestracja:ponad 19 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?.
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
- Rejestracja:prawie 18 lat
- Ostatnio:21 dni
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
- Rejestracja:ponad 19 lat
- Ostatnio:ponad 5 lat
0
Google dalej nie działa?
http://www.google.pl/search?hl=pl&source=hp&q=delphi+set+decimal+separator+for+windows&aq=f&aqi=&aql=&oq=&gs_rfai= czwarta odpowiedź od góry:
http://www.greatis.com/delphicb/tips/lib/system-setseparator.html
- Rejestracja:ponad 19 lat
- Ostatnio:ponad 5 lat
0
- Wpisuję w google frazę: delphi zmiany systemowego symbolu dziesiętnego
- Wyświetlają się wyniki
- Jadę na sam dół
- Czytam: Zobacz wyniki wyszukiwania przetłumaczone z języka angielskiego dla: delphi zmiany systemowego symbolu dziesiętnego
- Naciskam lewy klawisz myszki
- Znajduję odpowiedź na pierwszym miejscu wyszukiwania
- Uznaję, że nie umiesz korzystać z google ;)
- GOTO 7
edytowany 1x, ostatnio: madmike
- 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.
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"
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