Скачать: CL | DM;

Сложение чисел   Найти похожие ветки 

← →
Charlz ©   (2002-06-11 01:25) [0]

Как сложить числа в одной ячейки? При этой процедуре (см.ниже) числа складываются если введино два числа, но если введино 1 число, то программа выдаёт ошибку. Как можно исправить, чтобы при введение одного сичла выдавалось это же число без ошибки.
Зарание благодарен.

procedure TForm1.Button1Click(Sender: TObject);
begin
if StrToInt(Edit7.Text)<10 then
Edit10.Text:=Edit7.Text
else
A:=StrToInt(Copy(Edit7.Text,1,1));
B:=StrToInt(Copy(Edit7.Text,2,1));
Edit10.Text:=IntToStr(A+B)
end;

---

← →
lipskiy ©   (2002-06-11 01:31) [1]

begin
if Edit7.Text = "" then exit;
if Edit10.Text = "" then exit;
...

---

← →
lipskiy ©   (2002-06-11 01:32) [2]

или не exit, переприсвоение, это как тебе нужно.

---

← →
VID ©   (2002-06-11 02:40) [3]

procedure TForm1.Button1Click(Sender: TObject);
begin
try
if (StrToInt(Edit7.Text)<10) and (StrToInt(Edit7.Text)>=0) then
Edit10.Text:=Edit7.Text
else
A:=StrToInt(Copy(Edit7.Text,1,1));
B:=StrToInt(Copy(Edit7.Text,2,1));
Edit10.Text:=IntToStr(A+B)
except Edit10.Text:="" end;
end;

---

← →
Charlz ©   (2002-06-11 09:12) [4]

Всем большое прибольшое спасибо!

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c