SG (вычисления в таблице)

[nila]

есть такой SG с числами. нужно чтоб в edit1 посчитало: (0,03473*0,17+0,08304*0,66+...+0,02 215*0,72)
edit2:
(0,03473*0,05+0,08304*0,05+...+0,02 215*0,05) і т.д.
как это в цикле лучше сделать?

[Smitt&Wesson]

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

есть такой SG с числами. нужно чтоб в edit1 посчитало: (0,03473*0,17+0,08304*0,66+...+0,02 215*0,72)
edit2:
(0,03473*0,05+0,08304*0,05+...+0,02 215*0,05) і т.д.
как это в цикле лучше сделать?

Нахрена тут вообще цикл? Для цикла нужна дельта или ещё какое-то приращение. Здесь-же я вижу просто цифирь, которую вычислить можно просто на калькуляторе. Ну, или одной строкой в любом компиле.

[Serge_Bliznykov]

nila, не слушайте Смита&Вессона, нужен тут цикл.

выглядеть он может примерно так:

Sum := 0;
k:=1;
for i:=0 to SG1.ColCount-1 do
   Sum := Sum + StrToFloat(SG1.Cells[i,0])*StrToFloat(SG1.Cells[i,k]);
Edit1 := FloatTrStr(Sum);
k:=2;
for i:=0 to SG1.ColCount-1 do
   Sum := Sum + StrToFloat(SG1.Cells[i,0])*StrToFloat(SG1.Cells[i,k]);
Edit2 := FloatTrStr(Sum);

вот только использовать Edit1.. EditN не очень удобно (хотя тоже можно организовать цикл через FindComponent)
удобнее разместить ещё один StringGrid рядом и писать значения в него. Или даже в основном StringGrid добавить ещё один столбец и выводить значения в него!