Проблемы с калькулятором

[MAKEDON]

У меня какая то непонятная ошибка с калькулятором...не работает деление...выводить какие то умопомрачающие ответы даже не простые выражения... в чем проблема?

var
  Form1: TForm1;
  znak: char;
  a, b : integer;
  otvet: extended ;

....
if ((znak= '/') and (b= 0)) then showmessage('На 0 нельзя делить');
If ((znak= ' /') and (b <> 0)) then otvet:= a/b;
....

По ходу вопрос все о том же(если примеры я смотрел там нету)...как ограничить кол-во символов которые можно вводить в edit? Например можно ввести 9 символов...какое свойство отвечает за это? Или как сделать это программно?

[Arigato]

как ограничить кол-во символов которые можно вводить в edit?

Свойство MaxLength компонента TEdit.
О проблеме деления ничего сказать не могу, т.к. приведенного куска кода не достаточно. Выложите всею программу (в виде прикрепленного файла к сообщению).

[MAKEDON]

Вот исходник...одна проблема есть ли у тебя компонент AlphaSkin? Если нету то будут проблемы при запуске программы из делфи...если найти можно в нете найти или могу кинуть ссылку...

[Stilet]

Ну начнем с того что znak у тебя char
а в сравнении учавствует целая строка:

If ((znak= ' /')

Усек?

А потом АльфаСкин тут явно ни при чем...

[MAKEDON]

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

Свойство MaxLength компонента TEdit.

Не получается...кол-во символов все равно не ограничено...может потому что ввод осуществляется с помощью баттонов?

[scorpio2505]

сделай тип ответа real

[MAKEDON]

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

Ну начнем с того что znak у тебя char
а в сравнении учавствует целая строка:

Усек?

А что делать?

Ладно так может долго продолжаться....Можете провести в моем исходнике изменения(деление не ворк и ограничить кол-во символов в едите 9-ю) и кинуть мне....сам определю что было не так...Заранее спс!

[Arigato]

Не получается...кол-во символов все равно не ограничено...может потому что ввод осуществляется с помощью баттонов?

Ну конечно так не получится. В этом случае нужно руками длину проверять:

if Length (Edit1.Text) < 9 then Edit1.Text := Edit1.Text + ...

А что делать?

Убрать пробел в кавычках перед знаком /

P.S. scorpio2505
Real имеет меньшую точность, чем Extended, так что Extended лучше.

А вот почему у MAKEDON в программе a и b имеют тип Integer, а otvet вещественный?
Сделайте все 3 переменных одного типа.

[Stilet]

MAKEDON

Значит не усек.
Ладно попробуем нахрапом, копипасти это:

If ((znak= '/') and (b <> 0)) then otvet:= a/b;

Усек?

[dr.Chas]

1) Когда пишешь программы, оформляй код нормально. (используй табуляцию. Правила хорошо тона).
2) Пиши коментарии, тебе будет удобнее, когда код будет очень большой.
3) Отличие кнопки "С" и кнопки "снова", мало заметны (ну я не долго смотрел ). Может и ошибаюсь.
4) Исправь:

var znak: string;
     a, b, otvet: real;  //можешь воспользоваться советом выше ;) 

procedure TForm1.sButton18Click(Sender: TObject);
begin
  b := StrToFloat(sEdit1.text);
  case znak[1] of   
    '+': otvet:= a + b;
    '-': otvet:= a - b;
    '*': otvet:= a * b;
    '/': If  (b<>0) then otvet:= a/b;
  end;
//тут дальше твоё продолжение// 
end;

5) Чтобы запретить пользователю вводить значение с клавиатуры может стоит воспользоваться свойством у едит ReadOnly?

 Edit1.ReadOnly:=Trye; //нельзя редактировать
 Edit1.ReadOnly:=False; //можно)

P.S.: в коде у тебя столько лишнего