Текущий архив: 2004.06.13;
Скачать: CL | DM;
Вниз
SetDecimalSeparator - текст процедуры Найти похожие ветки
← →
Eagle © (2004-06-01 01:28) [0]Ищу текст процедуры SetDecimalSeparator
← →
tasman © (2004-06-01 01:31) [1]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;
Страницы: 1 вся ветка
Текущий архив: 2004.06.13;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.044 c
