Сложение чисел

← →
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;

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

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