[doniv]

Решил покодить на Delphi опыты и удовольствия ради.
Нашел пример(http://articles.org.ru/docum/calculator.php) калькулятор и начал разбираться.
По ходу начали возникать вопросы:

1. Почему в delphi не работает функция power? Как ее подключить? Где обычно можно нарыть вкусных функций
2. Все значение выводятся в TPanel, но если значение пустое, а мы начинаем производить какие-то манипуляции, то выскакивает ошибка. Как перед нажатием любой кнопки(А желательно гурппы кнопок) проверять, пустое поле или там может некорректное значение какое и выводить соответствующий мессадж?

[NIch]

1. Функция Power находится в модуле Math, подключи его в Uses...
2. Ну например проверка TEdit на пустой ввод:

Код:

OnButtonClick;
begin
 if Length(Edit1.Text) = 0 then
  ShowMessage('Не введены данные!');
end;

[doniv]

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

1. Функция Power находится в модуле Math, подключи его в Uses...
2. Ну например проверка TEdit на пустой ввод:

Код:

OnButtonClick;
begin
 if Length(Edit1.Text) = 0 then
  ShowMessage('Не введены данные!');
end;

Спасибо. Вообще установил 2010 Delphi, как-то приятно и прикольно там все
А вот смотрите, если мне нужно, чтобы событие обрабатывалось каждый раз когда идет клик по кнопке, то тогда как? Другими словами:
Клик по кнопке -> Проверка значения TLabel -> Вывод алерта в зависимости от параметров.

[NIch]

Код:

procedure TForm1.Ediе1.KeyPress (Sender: TObject; var Key: Char);
begin
  case Key of
    '0' .. '9', #8: ; // цифры и <Backspace> ничего не делать
  else
    Key := Chr(0); // иначе символ не отображать
  end;
end;

Данный код блокирует нажития всех символов кроме цифр и Backspace...

Код:

procedure TForm1.Ediе1.KeyPress (Sender: TObject; var Key: Char);
begin
  case Key of
    '0' : ShowMessage('Нажата цыфра 0');
    '1' : ShowMessage('Нажата цыфра 1');
    '2' : ShowMessage('Нажата цыфра 2');
  else
    Key  : ShowMessage('Нажата неизвестная клавиша');
  end;
end;

Данный код выводит сообщение о нажатой клавише...
Ну и все в таком духе во время обработки события OnKeyPress контролла Edit...

[doniv]

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

Код:

procedure TForm1.Ediе1.KeyPress (Sender: TObject; var Key: Char);
begin
  case Key of
    '0' .. '9', #8: ; // цифры и <Backspace> ничего не делать
  else
    Key := Chr(0); // иначе символ не отображать
  end;
end;

Данный код блокирует нажития всех символов кроме цифр и Backspace...

А можете тут подробнее?
Например, почему подчеркивает TObject, Char и Chr?

Вот ошибки.

[DCC Error] raschet.pas(61): E2037 Declaration of 'Edit1' differs from previous declaration
[DCC Error] raschet.pas(61): E2029 ';' expected but ')' found

Прошу прощения если вопросы покажутся вам нубскими. Для меня действительно важно понимать. Спасибо, что отвечаете

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

Потому-что должно быть:

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

[Aristarh Dark]

Молодой (ая) челове, Вам следйет учите не Delphi, а основы ООП (и это не три загадочные буквы, а Объектно Ориентированное Программирование).

[NIch]

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

Потому-что должно быть:

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

Все верно...спасибо Страдалецъ...

[doniv]

Сообщение от Aristarh Dark

Молодой (ая) челове, Вам следйет учите не Delphi, а основы ООП (и это не три загадочные буквы, а Объектно Ориентированное Программирование).

Спасибо за совет, но в данном случае я просто затупил