Сложение в StringGrid

[artemavd]

Вопрос: как сложить в stringgrid-e два числа, которые находятся в одной ячейке и вывести результат сложения в другую ячейку?

[Neeter]

Допустим что два числа пишутся, например, так: 10+10
Вот код обработчика onKeyPress у StringGrid'а.
Если нажат Enter, то пишем ответ в соседней справа ячейке:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var
 s: string;
 a, b, c: integer;
begin
 if Key = #13 then
 begin
  s := StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row];
  if Pos('+', s) <> 0 then
  begin
   a := StrToInt(Copy(s, 1, Pos('+', s) - 1));
   b := StrToInt(Copy(s, Pos('+', s) + 1, Length(s)));
   c := a + b;
   StringGrid1.Cells[StringGrid1.Col + 1, StringGrid1.Row] := IntToStr(c);
  end;
 end;
end;

[artemavd]

Эээ..не так немного. Смотрите, есть четыре ячейки. В первую и вторую выводятся числа, в третьей их сумма, а в четвертую надо чтобы вывелась уже сумма чисел, которые стоят в третьей ячейке. Например, 10|16|26|8...Так понятнее?)

[DomiNick]

КроссПост?

То есть сумма цифр в ячейке?

Procedure TForm1.Button1Click(Sender: TObject);
Var i, L, N: Integer; S: String;
Begin
S:=StringGrid1.Cells[1, 1];
L:=Length(S);
N:=0;
For i:=1 To L Do
      N:=N+StrToInt(S[i]);
Form1.Caption:=IntToStr(N);
End;

[Neeter]

Вот, например, при нажатии кнопки Вычислить:

procedure TForm1.bt_1Click(Sender: TObject);
var
 a, b: integer;
 str: string;
 i: integer;
 sum: integer;
begin
 a := StrToInt(StringGrid1.Cells[0, StringGrid1.Row]);
 b := StrToInt(StringGrid1.Cells[1, StringGrid1.Row]);
 StringGrid1.Cells[2, StringGrid1.Row] := IntToStr(a + b);
 str := IntToStr(a + b);
 sum := 0;
 for i := 1 to Length(str) do sum := sum + StrToInt(str[i]);

 StringGrid1.Cells[3, StringGrid1.Row] := IntToStr(sum);
end;

[artemavd]

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

КроссПост?

Прошу прощения за кросс пост. Брайзер глюкнул. Я не специально...
Что то не получается у меня
Делал я так:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 s: string;
 a1,a2,a3,L,n,i: integer;
begin
 s:=IntToStr(StrToInt(SG4.Cells[2,0]));
 L:=Length(s);
 n:=0;
//здесь считается сумма двух ячеек и результат выводится в третью
//а в четвертой должна быть сумма ЧИСЕЛ в третьей
 a3:=StrToInt(SG3.Cells[0,0]) + StrToInt(SG3.Cells[1,0]) +
     StrToInt(SG3.Cells[2,0]) + StrToInt(SG3.Cells[3,0]);
 Form1.SG4.Cells[0,0]:=IntToStr(StrToInt(SG3.Cells[0,0]) + StrToInt(SG3.Cells[1,0]));
 Form1.SG4.Cells[1,0]:=IntToStr(StrToInt(SG3.Cells[2,0]) + StrToInt(SG3.Cells[3,0]));
 Form1.SG4.Cells[2,0]:=IntToStr(StrToInt(SG4.Cells[0,0]) + StrToInt(SG4.Cells[1,0]));

//проверка на количество цифр в ячейке
//число всегда будет не больше двух
//  if inttostr(length((sg4.Cells[2,0]))) > '2' then
     for i:=0 to L do
      n:=n+StrToInt(s[i]);
      SG4.Cells[3,0]:=IntToStr(n);
еnd;

Как правильно сделать?

[DomiNick]

число всегда будет не больше двух

Сразу бы сказал...
...а это точно?

И кстати, там несколько StringGrid'ов чтоль?

Procedure TForm1.Button1Click(Sender: TObject);
Begin
StringGrid1.Cells[2, 0]:=IntToStr(StrToInt(StringGrid1.Cells[0, 0])+StrToInt(StringGrid1.Cells[1, 0])); // в третью ячейку помещаем сумму содержимого первых двух ячеек
StringGrid1.Cells[3, 0]:=IntToStr(StrToInt(StringGrid1.Cells[2, 0][1])+StrToInt(StringGrid1.Cells[2, 0][2])); // в четвёртую ячейку помещаем сумму первых двух цифр содержимого третьей ячейки
End;

Если в 3-й ячейке всегда будет две цифры, то можно в два "действия" делать...

[artemavd]

Да, в ячейке всегда Будет не больше двух чисел. Может одно быть, может два, но больше-нет. А как можно в два действия сделать?:-)

Вот, почти работает как надо:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 a1: integer;
begin
 a1:=StrToInt(SG3.Cells[0,0]) + StrToInt(SG3.Cells[1,0]) +
     StrToInt(SG3.Cells[2,0]) + StrToInt(SG3.Cells[3,0]);
 Form1.SG4.Cells[0,0]:=IntToStr(StrToInt(SG3.Cells[0,0]) + StrToInt(SG3.Cells[1,0]));
 Form1.SG4.Cells[1,0]:=IntToStr(StrToInt(SG3.Cells[2,0]) + StrToInt(SG3.Cells[3,0]));
 Form1.SG4.Cells[2,0]:=IntToStr(StrToInt(SG4.Cells[0,0]) + StrToInt(SG4.Cells[1,0]));
 Form1.SG4.Cells[3,0]:=IntToStr(StrToInt(SG4.Cells[2,0][1]) + StrToInt(SG4.Cells[2,0][2]));
 Form1.SG4.Cells[4,0]:=IntToStr(StrToInt(SG4.Cells[3,0][1]) + StrToInt(SG4.Cells[3,0][2]));
 Form1.Label4.Caption:='Результат сложения = ' +
                        IntToStr(StrToInt(Form1.SG4.Cells[4,0]));
end;

Суть проблемы на скриншоте

Вот, мой проект) Надеюсь, что вы поймете. Если что спрашивайте. Помогите пожалуйста с условиями.

[DomiNick]

Числа 1988 и 1999 взять в качестве примера

А какие ещё числа там могут быть? Вообще любые или только четырёхзначные? (и я бы для ввода этого числа взял не TStringGrid, а обычный TEdit - оно же там одно)

[artemavd]

Числа могут быть любые. Но только четырехзначные. Через Edit? Я хотел через него сделать, но не знал также как сложить в Edit-e числа. А Вы можете сделать с Edit-ами?