Bölgesel Dil Ayarları

haydarxxx · Mesaj gönderen **haydarxxx** » 02 Nis 2006 12:36

Slm
Denetim masasındaki bölgesel dil ayarlarından para birimi bölümünü kod ile nasıl değiştirebiliriz.(shellapi kullanmadan elle değik kod ile).Teşekkür diyorum ilgileneceklere

ylmz · Mesaj gönderen **ylmz** » 02 Nis 2006 01:59

Kod: Tümünü seç


var
  y_deg: PAnsiChar;
begin
  Y_Deg := '$';
  SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SCURRENCY, y_deg);

haydarxxx · Mesaj gönderen **haydarxxx** » 02 Nis 2006 07:03

sayın ylmz
Çok teşekkür ediyorum.ne zamandır arıyorum böyle bir kodu.sağolasın

haydarxxx · Mesaj gönderen **haydarxxx** » 02 Nis 2006 07:07

Tekrar ben

ylmz projemizi yada exe mizi kapatığımızda para birimini eski haline çevirtebilirmiyiz.tabi nasıl

ylmz · Mesaj gönderen **ylmz** » 02 Nis 2006 07:30

merhaba,

Kod: Tümünü seç

var
  para: String;
begin
  para  := CurrencyString;

bu şekilde programın başlangıcında kullanılan parabirimini öğrenebilirsin.Ama kullanıcıya bilgi vermeden bu tarz bölgesel ayarları değiştirmeni tavsiye etmem.iyi çalışmalar.

haydarxxx · Mesaj gönderen **haydarxxx** » 02 Nis 2006 11:14

Ok.Teşekkürler

Mesaj gönderen **fduman** » 03 Nis 2006 08:21

Hiçbir koşulda kullanıcının sistem yerel ayarları ile oynamayın. Programınız beklenmeyen biçimde kapanırsa bu ayarları geri alamayacaksınız.

Bunun yerine System unitinde tanımlanmış olan:

var
CurrencyString: string;

değişkeni ile işinizi görün. Bu değişken sadece uygulamanıza özeldir. Yani değiştirdiğinizde, sistemin ayarları değil sadece uygulamanızınki değişir. Uygulamayı kapatırken eski ayarları yüklemeniz gerekmez.

haydarxxx · Mesaj gönderen **haydarxxx** » 03 Nis 2006 12:19

sy coderlord
aslında benim yapmak istediğim paradox veri tabnında money olarak belirlediğim para alanına hesaplatma yaptırmak ama para değerinin sonunda TL,YTL gibi birim ifadeleri çıktığı için matematiksel işlem yaptırmak zor oluyor

edit3.Text:=ansireplacestr(edit3.text,'.','');
edit3.Text:=ansireplacestr(edit3.text,'YTL',''); komutundan da kaçmak istiyorum o yüzden para birimini bölgesel ayarlarda boşluk olarak belirleyip dbedit alanlarında hesaplatma işini yaptırabilmek.Kullanıcının ayarlarını değiştirmek istemem ama başka bir yol bulamıyorum.alanımı paradeğeri olarak görmek ve hesaplatmak istiyorum.

Ayrıca

uses imde
......SysUtils, olarak var

Bunun yerine System unitinde tanımlanmış olan:
var
CurrencyString: string; biraz açarmısın ne yapılmalı.İlginize teşekkür ediyorum

ylmz · Mesaj gönderen **ylmz** » 03 Nis 2006 12:30

merhaba

ilk yaratılan modulün en altına (yada unit varsa)

Kod: Tümünü seç

initialization
  CurrencyString := '$'; //sizin istediğiniz parabirimi

yazın.Böylece sadece sizin programınızdaki para birimi değişecektir.Yerel ayarlarda bi değişiklik olmicak
kolay gelsin.

Mesaj gönderen **aslangeri** » 03 Nis 2006 01:23

haydarxxx yazdı: aslında benim yapmak istediğim paradox veri tabnında money olarak belirlediğim para alanına hesaplatma yaptırmak ama para değerinin sonunda TL,YTL gibi birim ifadeleri çıktığı için matematiksel işlem yaptırmak zor oluyor

eğer kodlarınızda editlerdeki değerleri değilde tablodaki alanların değerlerine işlem yaptırırsanız currency alanlarda sıkıntı olmaması lazım.

Kod: Tümünü seç

editbilmemne.text:=strtofloat(editx.text)*strtoint(edity.text)

değilde

Kod: Tümünü seç

tabloxtoplam.ascurrency:=tabloxalan1.ascurrency*tabloxalan2.asscurrency;

şeklinde kullanmanız sorunu aşmanızı sağlar.
kolay gelsin.

haydarxxx · Mesaj gönderen **haydarxxx** » 03 Nis 2006 08:20

aslangeri

table1Para3.ascurrency:=(table1Para1.ascurrency)*(table1Para2.asscurrency);

şeklinde bir para.db oluşturdum Para1,Para2,Para3 money alanlı belirledim parantezli ve parantezsiz deneme yaptım ama satır hatası veriyor.Nerede hata yapmış olabilirim.Eğer böyle bir kod çalışırsaki sanırım çalıştıran vardır çok iyi olacak.herkeze bu yardım ve ilgiden dolayı teşekkür ediyorum.

Mesaj gönderen **m_ekici** » 04 Nis 2006 01:38

Paradox Tablosundaki alanların Currency özelligini false yaparsan YTL veya TL gelmez.

Birde program girişinde binlik ve kuruş ayıraçlarını belirleyebilirsin.

DecimalSeparator := ',';
ThousandSeparator := '.';

Mesaj gönderen **aslangeri** » 04 Nis 2006 01:54

haydarxxx yazdı:aslangeri

table1Para3.ascurrency:=(table1Para1.ascurrency)*(table1Para2.asscurrency);

şeklinde bir para.db oluşturdum Para1,Para2,Para3 money alanlı belirledim parantezli ve parantezsiz deneme yaptım ama satır hatası veriyor.

satır hatası nedir.
vediği hata mesajını tam olarak söylersen. iyi olur.

haydarxxx · Mesaj gönderen **haydarxxx** » 04 Nis 2006 05:00

Build
[Error] Unit1.pas(45): Undeclared identifier: 'asscurrency'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

haydarxxx · Mesaj gönderen **haydarxxx** » 04 Nis 2006 05:14

sy m_ekici
dbedit3.text:=floattostr(strtofloat(dbedit2.text)*strtofloat(dbedit1.text)); için
dediğinizi yaptım matemetiksel işlem yapıyor ama para ayraçları için bahsettiğiniz

DecimalSeparator := ',';
ThousandSeparator := '.'; nasıl kullanacağım