Проверка на наличие определенного числа в таблице

@МаргаритаC · Регистрация: 02.10.2009

Author24 — интернет-сервис помощи студентам

у меня есть программа которая считает сумму введенных чисел в таблице по строкам и столбцам.
надо сделать так, чтобы сумма считалась только когда в нижней правой ячейке введено число 11.

написал так

Delphi

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
  var a:Integer;
begin
a:=StrToInt(StringGrid1.cells[2,2]);
if a=11 then exit;
Calculate 
end;

запускается но при попытке ввода сразу останавливается и выдает ошибку даже не в коде Unit1 а открывается код Project1 и там в конце высвечивается ошибка. подскажите как исправить это. может проверку на число 11 в другом месте сделать?

@FIL · 27.12.2012, 12:42

Потому что когда происходит событие SetEditText ячейка еще пуста, а ты пытаешься ее в число преобразовать.
И нижняя правая будет StringGrid1.cells[3,3] (судя по скрину).

@volvo · 27.12.2012, 12:46

МаргаритаC, давай начнем с того, что нижняя правая ячейка (из того, что видно на твоём скриншоте) имеет координаты Cells[3, 3], а не [2, 2], поэтому вычисление в любом случае будет неправильным, даже если ты, воспользовавшись замечанием gorfil-а, заменишь StrToInt на StrToIntDef, чтобы не вылетало ошибки при вводе "не числа".

@МаргаритаC · 27.12.2012, 13:30 **[ТС]**

Сообщение от gorfil

Потому что когда происходит событие SetEditText ячейка еще пуста, а ты пытаешься ее в число преобразовать.
И нижняя правая будет StringGrid1.cells[3,3] (судя по скрину).

странно что я 2 2 написала..перепутала видимо.
а что делать с первым замечанием, то есть надо в другую функцию написать эту проверку да? но сама проверка то правильно написана?

@FIL · 27.12.2012, 13:41

Сообщение от МаргаритаC

а что делать с первым замечанием, то есть надо в другую функцию написать эту проверку да? но сама проверка то правильно написана?

Сообщение от UI

...заменишь StrToInt на StrToIntDef, чтобы не вылетало ошибки при вводе "не числа".

Delphi

1	a:=StrToIntDef(StringGrid1.cells[3,3], 0);

@МаргаритаC · 27.12.2012, 14:00 **[ТС]**

да, теперь не вылетает, но работает вобще непонятно как. надо с кодом разбираться наверное.
вобщем когда вводишь числа он все также считает сумму, когда начинаешь вводить любое число кроме 11 в той самой ячейке он все также считает, но когда вводишь 11 наоборот перестает считать

если время будет у кого-нибудь посмотрите программу пожалуйста)

@FIL · 27.12.2012, 14:05

Delphi

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
  if StringGrid1.cells[3,3] = '11' then Calculate;
end;

@МаргаритаC · 27.12.2012, 14:14 **[ТС]**

ура) все заработало!) спасибо большое!)))

@FIL Модератор 3491 / 2614 / 741 Регистрация: 19.09.2012 Сообщений: 7,976
	27.12.2012, 12:42	2
	Потому что когда происходит событие SetEditText ячейка еще пуста, а ты пытаешься ее в число преобразовать. И нижняя правая будет StringGrid1.cells[3,3] (судя по скрину). 0

@volvo Супер-модератор 32952 / 21271 / 8167 Регистрация: 22.10.2011 Сообщений: 36,541 Записей в блоге: 8
	27.12.2012, 12:46	3
	МаргаритаC, давай начнем с того, что нижняя правая ячейка (из того, что видно на твоём скриншоте) имеет координаты Cells[3, 3], а не [2, 2], поэтому вычисление в любом случае будет неправильным, даже если ты, воспользовавшись замечанием gorfil-а, заменишь StrToInt на StrToIntDef, чтобы не вылетало ошибки при вводе "не числа". 0

@МаргаритаC 1 / 1 / 0 Регистрация: 02.10.2009 Сообщений: 159
	27.12.2012, 13:30 [ТС]	4
	Сообщение от gorfil Потому что когда происходит событие SetEditText ячейка еще пуста, а ты пытаешься ее в число преобразовать. И нижняя правая будет StringGrid1.cells[3,3] (судя по скрину). странно что я 2 2 написала..перепутала видимо. а что делать с первым замечанием, то есть надо в другую функцию написать эту проверку да? но сама проверка то правильно написана? 0

@МаргаритаC 1 / 1 / 0 Регистрация: 02.10.2009 Сообщений: 159
	27.12.2012, 14:14 [ТС]	8
	ура) все заработало!) спасибо большое!))) 0