[wetalq]

Возникла проблема, при работе с полем Edit, нужно ограничить ввод буков, и оставить только числа, знак - и точку.
В RAD Studio есть параметр "Numbers Only ", но при активации пользователь не может вводить знак - и точку.

Код:

if not (Key in ['0'..'9',DecimalSeparator,#8])then
    begin
       Key := #0;
       MessageBeep (MB_OK);
    end;

А этот код, пишет ошибку.
Не нравиться DecimalSeparator

[poli-smen]

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

Код:

if not (Key in ['0'..'9',DecimalSeparator,#8])then
    begin
       Key := #0;
       MessageBeep (MB_OK);
    end;

А этот код, пишет ошибку.
Не нравиться DecimalSeparator

В операторе in нельзя использовать переменные - только константы. А DecimalSeparator - это переменная.

[wetalq]

Сообщение от poli-smen

В операторе in нельзя использовать переменные - только константы. А DecimalSeparator - это переменная.

Разобрался )

Код:

if not (Key in ['0'..'9',',',#8])then
    begin
       Key := #0;
       MessageBeep (MB_OK);
    end;

[Страдалецъ]

Ну как заплатку, вместо DecimalSeparator написать '.'

[Alegun]

Можно ещё кейсом

Код:

case Key of
'0'..'9', ',', #8 : exit;
 else
  begin
   Key := #0;
   MessageBeep (MB_OK);
  end;
 end;{case}

Оффтоп: странно, но моя делфя 7 на сабжевый код, в смысле на DecimalSeparator в in [] не ругается, запустилось без ошибок, может что делаю не так

[poli-smen]

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

Оффтоп: странно, но моя делфя 7 на сабжевый код, в смысле на DecimalSeparator в in [] не ругается, запустилось без ошибок, может что делаю не так

Тьфу-ты - точно. Это я перепутал in с case. Это в case нельзя использовать переменные, а в in - можно...