Решено. Как узнать разделитель дроби в вещественных числах

@119zero · Регистрация: 02.07.2021

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

Win7-64
Delphi 10.3
При обработке строки в число StrToFloat у меня возникала ошибка, проблема старая, это точка или запятая, смотря какая настройка. В старых версиях до XE6, это решалось глобальной переменной DecimalSeparator, но потом ее убрали. Есть предложения в тырнете ставить принудительно разделитель, но оказывается, через час-два настройки слетали на умолчание, так что нужно только чтение. Свежее решение от 2023 года было нагуглено. Сейчас все конвертится нормально.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
Function CheckString (S: string): string; // Проверяем Edit поля при ручном вводе
 var
 a: integer;
 SS: char;
 fs: TFormatSettings;
 begin
    fs:=TFormatSettings.Create(GetThreadLocale());
    GetLocaleFormatSettings(GetThreadLocale(),fs);
    SS:= fs.DecimalSeparator; // читаем (точка-запятая) в вещественных числах
  for a:= Length (S) downto 1 do if s[a] in ['.', ',', '0'..'9'] then else Delete (s, a, 1); //удаляем пробелы и прочее
  for a:=1 to Length (S) do if S[a]  in [',', '.'] then S[a] := SS; // ставим правильный разделитель 
  Result:= S;
 end;

@119zero · 11.11.2023, 13:50 **[ТС]**

Сообщение от AzAtom

но ты так не хочешь

Выше мое сообщение про TryStrToFloat прочитать никак ? 2 раза уже сказал про это

@AzAtom · 11.11.2023, 14:00

Сообщение от 119zero

Выше мое сообщение про TryStrToFloat прочитать никак ?

Читал. Это прикол, наверное?

Сообщение от 119zero

try exept ? Я быстро проверил, чота не работает, не стал копать почему.

"Весь завод чувствует, а он не чувствует"?

Сообщение от 119zero

Есть еще TryStrToFloat, больше вариантов нет, я через него хотел сделать, но в гугле буржуи что-то недовольны на него.

Чем конкретно не довольны? Что там не так? И зачем нам какие-то мифические буржуи в гугле? Я часто использую этот TryStrToFloat/TryStrToInt и ошибок не замечено.

@119zero · 11.11.2023, 14:08 **[ТС]**

Сообщение от AzAtom

Чем конкретно не довольны? Что там не так?

Просто подумал, что проще сразу напрямую вставлять DecimalSeparator в строку, иначе сначала проверить через TryStrToFloat, а потом все равно DecimalSeparator надо вставлять, это лишние движения...

@Constcat · 11.11.2023, 15:09

Сообщение от 119zero

это лишние движения

Так в программировании далеко не уедешь.

cyberGlod · 11.11.2023, 15:42

> это лишние движения...

Я бы просто проинформировал юзера, что он лопухнулся и ввел кривое число (чтобы лишние движения мне не пришлось делать).

@Massaraksh7 · 11.11.2023, 17:17

Сообщение от cyberGlod

что он лопухнулся и ввел кривое число

Это не кривое число, это нормальная ситуация.

@119zero · 11.11.2023, 20:44 **[ТС]**

Сообщение от cyberGlod

Я бы просто проинформировал юзера

Не надо нервировать людей, им работать надо на работе, а дома отдыхать ! Есть одна известная бесплатная прога, которая постоянно предлагает что-то поменять, а народ не в курсе, что что именно, им надо тут тыркнуть и фсе. Вот ее сейчас и переписываю попроще, поэтому и приспичило меня с этим разделителем, явно у кого-то еще запятая есть, включая меня. Сначала я сделал, как придумалось, без всяких извращений:

Delphi
1
2
3
4
5
begin
A:=0.01;
B:=FloatToStr(A);
if B[x] = [','] then...
end;

Дальше смотрел, что там в разделителе, запятая или точка. Не прокатило, Дельфи понимает только точку, ее и показывает. Винда понимает точку или запятую, в зависимости от региональных настроек, вот такой прикол, пришлось гуглить, теперь работает нормально.

Новые блоги и статьи Все статьи Все блоги /
Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .
Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .	Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой anaschu 23.05.2026 Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .	Как я стал коммунистом))) Модель сохранения здоровья сотрудников, запись блога номер 15 anaschu 23.05.2026 Внезапно хорошее здоровье сотрудников не нужно капиталистам?))	Модель здравоСохранения 15. Как мы чинили AnyLogic модель рабочего коллектива: сочленение диаграммы состояний болезней и поломок в ресурспул anaschu 23.05.2026 Как мы чинили AnyLogic модель рабочего коллектива Сегодня разобрались с пятью багами, из-за которых модель либо падала с ошибкой, либо давала совершенно бессмысленные результаты. Каждый баг был. . .

cyberGlod 13 / 11 / 2 Регистрация: 11.10.2023 Сообщений: 138
	11.11.2023, 15:42
	> это лишние движения... Я бы просто проинформировал юзера, что он лопухнулся и ввел кривое число (чтобы лишние движения мне не пришлось делать). 0