Вычисление квадратного корня в Delphi

[TaYgA]

Alex Cones, спасибо вам

[NeshSoft]

StrToInt(Edit.Text)

Только нужно проверить чтобы в edit было корректное число

[TaYgA]

Только нужно проверить чтобы в edit было корректное число

Тоесть надо прописать в процедуре FormKeyPress типо:

  if not (key in ['0'..'9',','])
    then begin
      key:=#0;
       beep;
    end;

Я так думаю!??! И ещё такой вопрос, если в Edit записано Real то чтоб его конвертировать надо написать

StrToReal(Edit.Text)

Так, или я опять ошибаюсь?!?!

[Alex Cones]

Тогда проще использовать MaskEdit или запретить ввод в обычное поле ввода символов кроме цифр (и #8):

if (not (Key in ['0'..'9'])) or (not (Key = #8)) then Key := #0;

Так, или я опять ошибаюсь?!?!

Нет. StrToFloat()

[NeshSoft]

TaYgA, как я понимаю Вы добавляете в органайзер функцию калькулятора, подкину Вам одну идейку:

Меня в стандартном калькуляторе не устраивает, что в числах не отделяются разряды, ну т.е. чисто 25789123 сложно для восприятия, а число 25 789 123 - гораздо приятнее. Если добавите эту функцию в свой калькулятор - он получиться более удобный

[TaYgA]

Спсибо, всё получилось...
NeshSoft, обязательно попробую

[ОДИНОЧЕСТВО В СЕТИ]

if (not (Key in ['0'..'9'])) or (not (Key = #8)) then Key := #0;

decimalSeparator забыли

[Alex Cones]

В тот момент требовался ввод целочисленного значения в эдит. Потребность в реальном появилась после того, как я набрал сообщение (не успел).