Changer sur le système la séparation décimale

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 begin
DecimalSeparator := strpas(Buffer)[1];
end;
Application.UpdateFormatSettings := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SetDecimalSeparator('.');
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour30/11/2001
VisualisationVu 835 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Systeme
Auteur de l'article
Communauté Delphi Communauté Delphi
connecté le 02/11/2011
0 articles dans la section
Contacter l'auteur