Получить системный разделитель дробной части

21.06.2010, 20:00. **Показов** 6872. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Здрастуйте! Подскажите, plz, как определить какой разделитель дробной части стоит в системе: точка или запятая?

25.06.2010, 17:53

существует константа DecimalSeparator, вот и ее и используем.
Пример функции для исправления разделителя:

Delphi

function UpdateDecimalSeparator(const s: string): string;
begin
  Result:=s;
  case DecimalSeparator of
  ',':if (Pos('.', s)<>0) then ReplaceStr(Result, DecimalSeparator, Pos('.', s));
  '.':if (Pos(',', s)<>0) then ReplaceStr(Result, DecimalSeparator, Pos(',', s));
  end;
end;

27.06.2010, 01:27

Спасибо. А где можно узнать подобные константы и то что они ознычают?

Lich
		1
	Получить системный разделитель дробной части 21.06.2010, 20:00. Показов 6872. Ответов 2 Метки нет (Все метки) Здрастуйте! Подскажите, plz, как определить какой разделитель дробной части стоит в системе: точка или запятая?

Lich
	27.06.2010, 01:27	3
	Спасибо. А где можно узнать подобные константы и то что они ознычают?

Опции темы

Получить системный разделитель дробной части

Решение