| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сложение чисел [D4, D5, D6, Win95/98, WinME, NT4, Win2k, WinXP]
Charlz © (2002-06-11 01:25:00)Как сложить числа в одной ячейки? При этой процедуре (см.ниже) числа складываются если введино два числа, но если введино 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;
Charlz (2002-06-11 09:12:00) [1]Всем большое прибольшое спасибо!
VID (2002-06-11 02:40:00) [2]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;
lipskiy (2002-06-11 01:32:00) [3]или не exit, переприсвоение, это как тебе нужно.
lipskiy (2002-06-11 01:31:00) [4]begin
if Edit7.Text = "" then exit;
if Edit10.Text = "" then exit;
...
| |
