Модератор: Модераторы
{$IFDEF LINUX}
S:=Application.EnvironmentVariable['LC_NUMERIC'];
if (Pos('de',LowerCase(S))<>0) then begin ThousandSeparator:='.'; DecimalSeparator:=','; end;
if (Pos('ru',LowerCase(S))<>0) then begin ThousandSeparator:='.'; DecimalSeparator:=','; end;
if (Pos('en',LowerCase(S))<>0) then begin ThousandSeparator:=','; DecimalSeparator:='.'; end;
{$ENDIF}
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6