• Зарегистрирован: 2010-05-14
  • Сообщений: 1

Тема: Stringrid и функции Delphi

Здравствуйте уважаемые форумчане!
прошу Вас оказать мне помощь
в решении нижеследующей задачи:

Необходима прога, создающая в Stringrid матрицу скажем (4х4),
каждый элемент матрицы это строка чисел например: 123(элемент первого столбца, первой строки и тд.)
необходимо также чтобы по нажатию кнопки
программа складывала числа элемента матрицы т.е. 1+2+3 и выводила результат (число 6)
в стек, т.е. создавала вторую матрицу. Можно тоже в Stringrid
я уже представлял Вам свой код и прога в принципе работает, но мне никак не удаеться
уменьшить свой код и как то его оптимизировать,
при попытке заполнения первой матрицы через random например:

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
      randomize;
     for i:=0 to 100 do
     for j:=0 to 100 do
     begin
     stringGrid1.Cells[j,i]:=inttostr(random(100)-0);
     end;
end;
***********************************************************************************
при использовании например следующего кода Delphi виснет:

j:=0; // присываиваем начальное значение
for i:=0 to 14 do
repeat
stringGrid1.Cells[i,j]:=inttostr(random(10)-0);
inc(j,2); //прибавляет переменную j на 2
until j=8; // значение 8 для того, чтобы цикл выполнился последний раз, когда j=6
************************************************************************************
первая матрица заполняеться, но мне никак неудаеться произвести сложение чисел
в каждом из элементов матрицы.
(нашел коды для сложения нескольких ячеек Stringrida но немогу найти код для складывания чисел в одной ячейке Stringrida)
перерыл весь интернет и нигде немогу найти код...да и с функцией неполучаеться...
пробовал следующее:

function stringGrid1.sum(a, b: integer): integer;
begin
Sum:=A+B;
end;
но как я понимаю я делаю что то не так...
вероятно ответ лежит на поверхности, но пока я его невижу(((
прошу Вашей помощи и советов...буду благодарен, если кто нибудь подскажет как правильно написать необходимую функцию.
мой адрес: tnm666@yandex.ru аська 392957308
буду благодарен за помощь в решении этой программы.

  • Зарегистрирован: 2009-09-04
  • Сообщений: 13
  • Поблагодарили: 2

Re: Stringrid и функции Delphi

Написал функцию сложения чисел в ячейке. 

function TForm1.sumcells(s: string): string;
var i:integer; // какая по счету цифра
    sum:integer;
begin
sum:=0;
for i:=1 to length(s) do
sum:=sum+strtoint(s[i]); // прибавляем к временной переменной sum по очереди все числа с ячейки
result:=inttostr(sum);
end;

Вызываем так: sumcells(stringgrid1.Cells[1,1]);

Чтобы все ячейки сложить делай вложенный цикл:

for i:=1 to stringgrid1.colcount-1 do
for j:=1 to stringgrid1.rowcount-1 do
begin
stringgrid2.cells[i,j]:=sumcells(stringgrid1.Cells[i,j]); // сложение и вывод во 2 стрингрид
end;
  • Зарегистрирован: 2009-09-04
  • Сообщений: 13
  • Поблагодарили: 2

Re: Stringrid и функции Delphi

написал мини прогу http://depositfiles.com/files/a5smha9l6

вводишь в стринггрид свое число, нажимаешь сумма, все считается