[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 - можно...

[angvelem]

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

...Это в case нельзя использовать переменные...

И в case переменные можно использовать и всегда используются.

[poli-smen]

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

И в case переменные можно использовать и всегда используются.

И это странно. Попробовал на D7 такой код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  a, n: Integer;
begin
  case a of
    1, n: Beep;
  else ;
  end;
end;

Компилятор ругается:

PHP код:

[Error] Unit1.pas(31): Constant expression expected 


Попробовал этот же код на DXE2 - то же самое:

PHP код:

[DCC Error] Unit1.pas(31): E2026 Constant expression expected 


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

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

И в case переменные можно использовать и всегда используются.

Не совсем так. В качестве параметра в кейс действительно можно передать переменную, но нельзя сделать такую штуку:

Код:

Var
 a,b,c: Integer;
begin
 case a of
 b: ;
 c: ;
 end;
end;

но можно такую:

Код:

Const
 b = 1;
 c = 2;
Var
 a: Integer;
begin
 case a of
 b: ;
 c: ;
 end;

[poli-smen]

Сообщение от Страдалецъ

Не совсем так. В качестве параметра в кейс действительно можно передать переменную, но нельзя сделать такую штуку:

А, ну да. Мы с angvelem просто друг друга неправильно поняли
Я имел ввиду, что в case (в отличие от in) нельзя использовать переменные в качестве вариантов проверки, а не в качестве проверяемой переменной.
Причина такого ограничения очень проста - чтобы исключить неоднозначности вида:

Код:

var
  n, a, b: Integer;
...
  a := 1;
  b := 1;
...
  case n of
    a: ShowMessage('a');
    b: ShowMessage('b');
  else ;
  end;
end;

Кроме того case является высокооптимизированной структурой. Например в таком коде:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  n: Integer;
begin
  case n of
    1: ShowMessage('1');
    2: ShowMessage('2');
    3: ShowMessage('3');
    4: ShowMessage('4');
    5: ShowMessage('5');
    6: ShowMessage('6');
  else ;
  end;
end;

не будет кучи проверок переменной n на все возможные значения. Вместо этого компилятор создаст таблицу-вектор из которой программа будет выбирать адрес перехода как из массива. При использовании переменных такой оптитимизации добиться нельзя было бы.

[IzIFRag]

сори за офтоп.. просто попалось на глаза то, с чем когда то сталкивался,а именно XE3 ругался на подобную конструкцию, которая включает в себя decimalseparator, хотя XE2 все еще было нормально. В чем проблема может быть ?

[angvelem]

Сообщение от Страдалецъ

Не совсем так...

Именно про переменную "что-то" я и говорил.

Код:

  case что-то of