Текущий архив: 2002.06.24;
Скачать: 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 вся ветка
Текущий архив: 2002.06.24;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
