Главная страница
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.029 c
1-1106232953
Eraser
2005-01-20 17:55
2005.02.06
Baloon Hint в трее + win 98


1-1106525159
Profi
2005-01-24 03:05
2005.02.06
Свой TTreeView


9-1098878181
FRick
2004-10-27 15:56
2005.02.06
GLScene &amp; 3ds


4-1103195163
axx
2004-12-16 14:06
2005.02.06
SendMessage &amp; TThread


1-1106673942
Pers
2005-01-25 20:25
2005.02.06
Папки и файлы