Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.06;
Скачать: CL | DM;

Вниз

Калькулятор   Найти похожие ветки 

 
Змей ©   (2005-01-22 21:49) [0]

Здравствуйте Мастера!
вот код:\
procedure TfmExample.bbRunClick(Sender: TObject);
var
X, Y, Z: Real;

begin
MessageBeep(MB_OK);
if (edInput1.Text="") or (edInput2.Text="")
or (cbSign.ItemIndex<0) then Exit;
try
X := StrToFloat(Trim(edInput1.Text));
except
ShowMessage("Ошибка записи числа: "+edInput1.Text);
edInput1.SelectAll;
Exit;
end;
try
Y := StrToFloat(Trim(edInput2.Text));
except
ShowMessage("Ошибка записи числа: "+edInput2.Text);
edInput2.SelectAll;
Exit;
end;
case cbSign.ItemIndex of
0: Z := X + Y;
1: Z := X - Y;
2: Z := X * Y;
3: try
Z := X / Y;
except
Z := 1.1e+38
end;
end;
lbOutput.Caption := Trim(edInput2.Text)+" "+
cbSign.Items[cbSign.ItemIndex]+" "+
Trim(edInput1.Text)+" = ";
if Z >= 1.1e+38 then
lbOutput.Caption := lbOutput.Caption+"бесконечьность"
else
lbOutput.Caption := lbOutput.Caption+FloatToStr(Z);
mmOutput.Lines.Add(lbOutput.Caption);
edInput1.Text := "";
edInput2.Text := "";
cbSign.ItemIndex := -1;
end;

у меня тут сосед начал дельфи изучать и пытается по книжке налабачить калькулятор!
и жалуется что у него дробные числа не складывает
я посмотрел: если набираешь число 5,5 или 0,4 то вылетает окно ShowMessage("Ошибка записи числа: "+edInput1.Text);

cbSign-комбобох где у него -*/+

че там за книжка я не знаю мы в локалке а идти к нему не хочу
воть:)
пробовал не trim  а frac чет не получается:(
StrToFloat(Trim(edInput1.Text));

заранее пасиба


 
begin...end ©   (2005-01-22 21:54) [1]

> Змей ©   (22.01.05 21:49)

Проверьте, чему равна глобальная переменная DecimalSeparator.


 
Bobby Digital ©   (2005-01-22 23:20) [2]

Попробуй DecimalSeparator:=","; и скадывай свои 5,5


 
GanibalLector ©   (2005-01-23 02:32) [3]

Тут одни уже калькулятор делали.В общем,без  форм Бэкуса-Наура (БНФ) и описания ими входного языка не получиться.



Страницы: 1 вся ветка

Текущий архив: 2005.02.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
3-1105199133
Garry
2005-01-08 18:45
2005.02.06
Проблема с БД


6-1100836706
Новичек
2004-11-19 06:58
2005.02.06
Создание сокета без сетевой карты.


3-1104824144
tytus
2005-01-04 10:35
2005.02.06
Фильтрация данных.


14-1105947803
NewDelpher
2005-01-17 10:43
2005.02.06
Регистрация печатных изданий


1-1106592244
MadGhost
2005-01-24 21:44
2005.02.06
StringGrid как запретить редактирование в определенном столбце?