занести данные в таблицу

[Танюха Ю]

здравствуйте, форумчане!
delphi 7
помогите заполнить таблицу данными получаемыми из цикла

For i:=1 to srok do
 k := oplata+s * (pr/100) * (srok/360); 
s:=s-oplata; // здесь сумма должна уменьшатся каждый месяц

и эту сумму я должна помещать в ячейки таблицы начиная с первого месяца и кончая последним месяцем. все данные записываются в строчку

StringGrid1.Cells[i,1] := IntToStr(k);

в таблицу выводит только первый результат причем во все ячейки строки.
помогите вывести в ячейки правильные результаты.

[raxp]

вдумайтесь в свой код, ничего не забыли?

[Танюха Ю]

вот код что касается вычисения и занесения в таблицы

For i:=1 to km do
 k := oplata+s * (pr/100) * (srok/360); //оплата кредита с процентами
s:=s-oplata; // здесь сумма должна уменьшатся каждый месяц
 chart1.Visible:=True;
 chart1.Series[0].Clear;
 for i:=0 to km-1 do begin
   stringgrid1.Cells[i,0]:=IntToStr(i+1)+' месяц';
   stringgrid1.Cells[i,1]:=FloatToStr(к); end;

посмотрите свежим глазом, может я уже чего ну вижу

[raxp]

все данные записываются в строчку

- напишите что должно быть по строкам и что по столбцам

судя по

For i:=1 to km do

без begin
k у вас застряло

[GenniY]

Танюша, вы ещё паритесь с этой программой....?
Я же вам давно уже выложил рабочий код. Что не так?