[Hetrue]

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

В чём проблема то заключается? Я же отвечал на Ваш вопрос "Калькулятор". Если это не подходит, то опишите проблему подробнее.

Код:

procedure TForm1.LabeledEdit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  If Not( (Key In ['0'..'9']) Or (Key=#8) Or ((Key=DecimalSeparator)
    And (AnsiPos(DecimalSeparator, LabeledEdit1.Text)=0)
    And (LabeledEdit1.Text<>'')) ) Then
      Key:=#0;
end;

вы написали мне это, а вы можете написать мне через case? буду вам благодарен!