запятая вместо точки в InputQuery

[Alkatras]

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

// цикл ввода концентрации пробы
        repeat
          if not InputQuery('Проба','Введите концентрацию', s) then
            Showmessage('Необходимо ввести данные');
        until s <> '';

Заранее спасибо!

[Delphi_ProGer]

Так как вы хотите - невозможно(наверное), а вот после ввода заменить все точки на запятую - можно

[Serge_Bliznykov]

так. стоп. Что значит - "чтобы вместо точки в InputQuery вводилась запятая" ??!
Через InputQuery вводится СТРОКА (текст).
Там можно ввести не только точку, запятую, точку с запятой, но и даже буквы, пробелы и знаки препинания!
Что Вы с этим делать собираетесь?!

p.s. либо обрабатывайте строчку после ввода, либо меняйте процедуру ввода данных (используйте специальные контролы)

[Alkatras]

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

Так как вы хотите - невозможно(наверное), а вот после ввода заменить все точки на запятую - можно

ну мне любая информация будет полезной)

[Delphi_ProGer]

Заменить символы в строке можно с помощью функции Replace() - подробно смотрите в справке.

[Serge_Bliznykov]

        s := StringReplace(s, '.', ',', [rfReplaceAll]);

или, лучше, так:

        s := StringReplace(s, '.', DecimalSeparator, [rfReplaceAll]);
        s := StringReplace(s, ',', DecimalSeparator, [rfReplaceAll]);

[Alkatras]

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

так. стоп. Что значит - "чтобы вместо точки в InputQuery вводилась запятая" ??!
Через InputQuery вводится СТРОКА (текст).
Там можно ввести не только точку, запятую, точку с запятой, но и даже буквы, пробелы и знаки препинания!
Что Вы с этим делать собираетесь?!

p.s. либо обрабатывайте строчку после ввода, либо меняйте процедуру ввода данных (используйте специальные контролы)

В InputQuery вводится дробное значение. Delphi обрабатывает значения с разделителем ','. Поэтому я и хочу её получить. Пробовал использовать DecimalSeparator, не помогло.

[Serge_Bliznykov]

смотрите мой пример с кодом постом выше.

[Alkatras]

Большое спасибо!

[ДралсяСошибками]

Может в Dialog.pas дописать событие OnKeyDown к создаваемому Edit в InputQuery и заменять точки на запятые при вводе)))