Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > StringGrid

Автор: Tuykores 31.5.2006, 11:04

Прошу помощи...
помогите написать код для сложения элементов таблицы stringGrid по строкам.как числа...
дано:таблица 3х5, сложить все элементы по строкам и вывести на экран и в файл...
Пожалуйста!
Горю!!!!

Автор: maxim1000 31.5.2006, 11:16

Delphi или C++Builder?

Автор: ksili 31.5.2006, 11:37

Код


float sum[3];

for(i=0;i<3;i++)
    {
     for(j=0;j<5;j++)
         {
          sum[i]+=StrToFloat(StrringGrid[j][i]);
         }
    }

//вывод на экран в консоль (кажется так)
cout<<sum[0];
cout<<sum[1];
cout<<sum[2];

//если графическое приложение вывод например в Label
Label1->Caption = FloatToStr(sum[0]);         
Label2->Caption = FloatToStr(sum[1]);          //или используй FormatFloat
Label3->Caption = FloatToStr(sum[2]);

//вывод в файл лень писать

1) Массив sum сначала обнули
2) внутренний цикл можно развернуть - так будет быстрее работать
3) float можешь заменить на другой численный тип

Автор: Tuykores 1.6.2006, 14:07

Спасибо,конечно,но мне в delphi надо...
можно?

Добавлено @ 14:09
как в файл вывести разобрался....

Автор: Sunr1se 2.6.2006, 12:28

Код


procedure TForm1.Button1Click(Sender: TObject);
var sum: array[0..2] of real;
    i, j: integer;
    a: real;
begin
for i := 0 to 2 do
  sum[i] := 0;
for i := 0 to 3 do
  for j := 0 to 5 do
    begin
    a := StrToFloat(StringGrid1.Cells[j, i]);
    sum[i] := sum[i] + a;
    end;
Edit1.Text := FloatToStr(sum[0]);
Edit2.Text := FloatToStr(sum[1]);
Edit3.Text := FloatToStr(sum[2]);
end;

Автор: Tuykores 7.6.2006, 11:21

Ограмное спасибо!!!в добавок я еще и сам догодался...неделю мозги парил...спасибо...простите за беспокойство smile