Delphi ile Bilgisayarınızın Decimal Parametresini Öğrenmek

 Bu yazımızda bilgisayarın ayarlı olduğu decimal parametresini öğreniyoruz.Muhasebe programları yazarkan her bilgisayarın decimal parametresini düşünmek zorunda kalırsınız.İşte bu örnek kodlar ile decimal konusunda hata yapmazsanız.

GetLocaleInfo fonksiyonunu kullanacağız.

 Formumuza bir label ,bir button koyalım.Click eventına da aşağıdaki kodu yazalım.

procedure TForm1.Button1Click(Sender: TObject);
var
SistemDecimal: PChar;
begin
  SistemDecimal:=StrAlloc(10);
  GetLocaleInfo(
    LOCALE_SYSTEM_DEFAULT, 
    LOCALE_SDECIMAL, 
    MyDecimal, 
    10);
  Label1.Caption:='Sistemin Decimalı - "'+SistemDecimal+'"';
end;

bir sonraki yazımızda görüşmek üzere.