[Hetrue]

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

Вот написал с Case, но так хуже работает: когда не ввёл цифру можно ввести запятую, не придумал как это устранить.

Код:

Case Key Of
    '0'..'9':;
    #8:;
    ',', '.':
      If (Key=DecimalSeparator) Then
        If (AnsiPos(DecimalSeparator, LabeledEditLeftBoard.Text)<>0)
            And (LabeledEditLeftBoard.Text<>'') Then
              Key:=#0
        Else
    Else Key:=#0;
  End;

Я же ещё ссылки выложил: там пример для Lazarus, но и для Делфей пойёдёт.

LabeledEditLeftBoard, а почему не просто TEdit? у меня простой, и выдаёт ошибку

Код:

[Error] Calc.pas(511): Undeclared identifier: 'LabeledEditLeftBoard'