[Hetrue]

Доброго времени суток!
я делаю калькулятор, и у меня появилась сложность в том как , мне реализовать ввод в edit цифр с клавиатуры.
Помогите кто чем может! Заранее благодарю!

[DelphiM0ZG]

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

[Admin]

http://www.delphisources.ru/cgi-bin/...&stpo s=0&s=R

[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? буду вам благодарен!

[DelphiM0ZG]

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

Код:

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

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

[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'

[DelphiM0ZG]

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

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

Код:

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

Перепишите код с Вашим названием Edit, я просто в своей проге это сделал и забыл написать Edit1. А у Вас этого компонента нет, поэтому и ошибка выскочила. Теперь (если Ваш edit Name=Edit1), то можно копировать.