Archyvas

Įrašai, pažymėti ‘kodas source delphi’

Kaip nustatyti „decimal“ skirtuką sistemoje

2009-03-06 Komentavimas išjungtas
procedure SetDecimalSeparator(Ch: Char);
var
  DefLCID: LCID;
  Buffer: LPSTR;
begin

Application.UpdateFormatSettings := True;
  StrPCopy(Buffer, Ch);
  DefLCID := GetThreadLocale;
  if SetLocaleInfo(DefLCID, LOCALE_SDecimal, Buffer) then
  DecimalSeparator := StrPas(Buffer)[1];
  Application.UpdateFormatSettings := False;

end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetDecimalSeparator('.');
end;
VN:F [1.9.22_1171]
Rating: 0.0/5 (0 votes cast)
VN:F [1.9.22_1171]
Rating: 0 (from 0 votes)
Kategorijos: Programinis kodas Žymos:
Dienos akcijos | Dovanos | Nuolaidos
Uždaryti
Eiti prie įrankių juostos