Необходимо чтобы в StringGrid, в первую и во вторую ячеку пишешь число, а в третьей отображается результат математического действия этих двух чисел (например сложение или вычитание).

Для доступа к ячейкам таблицы служит свойство Cells - эт "двумерный массив", представляющий таблицу. Нумерация начинается с 0 - это коорждинаты заголовков.
По САБЖу должно быть что-то вроде:

Код

With StringGrid1 Do begin     Cells[1,1]:=IntToStr(Number1); // число 1     Cells[2,1]:=IntToStr(Number2);  // число 2     Cells[3,1]:=IntToStr(Number1+Number2); // результат сложения   End

Более универсально:

Код

with StringGrid1 do  Cells[FixedCols+2, FixedRows]:=IntToStr(StrToInt(Cells[FixedCols, FixedRows]) + StrToInt(Cells[FixedCols+1, FixedRows]));

Тут учитываются фиксированные строки и столбцы, а также по-моему более точно отражает решение задачи...

Это сообщение отредактировал(а) Pakshin A. S. - 15.6.2005, 20:19

PrograMMer, твоим советом ничего не получается, я делаю так:

Код

procedure TForm5.FormCreate(Sender: TObject); var Number1:integer; Number2:integer; begin With StringGrid1 Do begin     Cells[1,1]:=IntToStr(Number1);     Cells[2,1]:=IntToStr(Number2);     Cells[3,1]:=IntToStr(Number1+Number2);    End

Компилирую, появляется таблица, куда уже занесены какие-то числа. Естественно пишешь другие числа, они же и остаются. Ничего не вычисляет.

Пробывал и так:

Код

procedure TForm5.StringGrid1Click(Sender: TObject); var Number1:integer; Number2:integer; begin With StringGrid1 Do begin     Cells[1,1]:=IntToStr(Number1);      Cells[2,1]:=IntToStr(Number2);      Cells[3,1]:=IntToStr(Number1+Number2);   End; end;

Компилирую, появляется таблица, куда еще не занесы числа, но кликаешь мышкой в любой ячейке и автоматически вносятся числа, причем в 1-ой и 3-ей ячейке одни и те же числа, а в 3-ей нуль.
Чего не так, я не пойму.
Кстати еще такой феномен: щелкаешь по ячейкам в таблице, а в этих трех ячеках появляются какие-то "левые" числа.


Pakshin A. S.

А по твоему совету:

Код

with StringGrid1 do  Cells[FixedCols+2, FixedRows]:=IntToStr(StrToInt(Cells[FixedCols, FixedRows]) + StrToInt(Cells[FixedCols+1, FixedRows]));

После компиляции клик на любой ячейке таюлицы вызывает ошибку, такого содержания:

Project Project2.exe raised exception class EConvertError with message ''is not a valid integer value''.
Process stopped. Use Step or Run to continue.

Это сообщение отредактировал(а) Alex - 16.6.2005, 18:57

Цитата

Кстати еще такой феномен: щелкаешь по ячейкам в таблице, а в этих трех ячеках появляются какие-то "левые" числа.

Локальные переменные процедур не иниализируются нулем.

Это сообщение отредактировал(а) markowww - 16.6.2005, 17:48

кто ж IntToStr() без try / catch делает? ;)

Цитата(PrograMMer @ 16.6.2005, 17:27)

Pakshin A. S. А по твоему совету: with StringGrid1 do Cells[FixedCols+2, FixedRows]:=IntToStr(StrToInt(Cells[FixedCols, FixedRows]) + StrToInt(Cells[FixedCols+1, FixedRows])); После компиляции клик на любой ячейке таюлицы вызывает ошибку, такого содержания: Project Project2.exe raised exception class EConvertError with message ''is not a valid integer value''. Process stopped. Use Step or Run to continue.

У тебя событие OnClick возникает и тогда, когда ты только пытаешься ввести числа в StringGrid. В этот момент в первых двух ячейках вообще ничего нет, а программа пытается сложить их содержимое. Надо проверять, введено ли что-нибудь в эти ячейки.

А точнее завести кнопочку "Подсчитать..."

Pakshin A. S. а можно сделать и без кнопочки "Пересчитать", так ведь удобнее? Я это и имел в виду.

Цитата(_hunter @ 16.6.2005, 17:49)

кто ж IntToStr() без try / catch делает? ;)

Это видимо гибрид Pascal и C++

а... ну да -- try / except
( давно уже на делфи не писал )

Код

procedure TForm5.StringGrid1Click(Sender: TObject); begin   try     with StringGrid1 do        Cells[FixedCols+2, FixedRows]:=IntToStr(StrToInt(Cells[FixedCols, FixedRows]) + StrToInt(Cells[FixedCols+1, FixedRows]));   except   end; end;

Только учти, что при запуске в самой Дельфи ошибка все равно будет выскакивать.

Это сообщение отредактировал(а) markowww - 17.6.2005, 16:38

А если вещественные числа иметь в виду. Это значит:

Код

var a,b:real; begin try   With StringGrid1 Do begin     Cells[1,1]:=FloatToStr(a); // число1     Cells[2,1]:=FloatToStr(b);  // число2     Cells[3,1]:=FloatToStr(a+b); // сложение чисел except MessageDlg('Будтье внимательны',mtInformation,[mbOk],0); end;

После компиляции во всех трех ячейках появляются огромные числа, подобно этому: 2,20448540820793E-307

Это сообщение отредактировал(а) Girder - 17.6.2005, 20:30

Используй форматированные преобразования... Почитай о них в хелпе по FloatToStr