Не выводит в таблицу.

[alex0097]

Спасибо всем. вопрос решен SQLPowerUser огромный респект ему

[ДралсяСошибками]

А это как? Или в новых версиях так можно?

procedure Button3Click(Sender:TObject;StringGrid1:TStringGrid;StringGrid2:TStringGrid);

[alex0097]

на borland delphi 7 пишу

[ДралсяСошибками]

Ну лан, а в чём смысл добавления двух стринггридов в событие кнопка?

[Аватар]

Button3Click это что? На кнопке OnClick такой не может быть

[alex0097]

Сообщение от Аватар

Button3Click это что? На кнопке OnClick такой не может быть

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

Ребят может кто нить поможет. Вообще не понимаю

[ДралсяСошибками]

Процедура должна выглядеть, вот так:

procedure Button3Click(Sender:TObject);

После правки, у кнопки 3 в инспекторе объектов, на вкладке событие, в событии OnClick, добавь Button3Click;

[SQLPowerUser]

Скачал проект...
В самом начале модуля, поправьте строку для Button3Click, чтобы выглядело так:

procedure Button3Click(Sender:TObject);

Ну и соответственно новый Button3Click

procedure TForm1.Button3Click(Sender: TObject);
var
  k,i:Integer;
  x:Mass;
  v:MassVR;
begin
  for k:=3 to 8 do
    for i:=1 to 10 do
    begin
      x[i]:=0;
      v[k,i]:=0;
   end;

  for i:=1 to 10 do
  begin
    x[i]:=x[i]+0.1;
    for k:=3 to 7 do
     begin
         {if ((x[i]*StrtoFloat(StringGrid1.Cells[4,k])+(x[i]*StrtoFloat(StringGrid1.Cells[4,k])-x[i]*StrtoFloat(StringGrid1.Cells[4,k])/StrtoFloat(StringGrid1.Cells[7,k]))*StrtoFloat(StringGrid1.Cells[8,k])/StrtoFloat(StringGrid1.Cells[6,k]))<=StrtoFloat(StringGrid1.Cells[3,k])*StrtoFloat(StringGrid1.Cells[5,k]))
         and ((x[i]*StrtoFloat(StringGrid1.Cells[4,k])+StrtoFloat(StringGrid1.Cells[12,k]))<=(StrtoFloat(StringGrid1.Cells[11,2])+(x[i]*StrtoFloat(StringGrid1.Cells[4,k])/StrtoFloat(StringGrid1.Cells[7,k])-x[i]*StrtoFloat(StringGrid1.Cells[4,k])/StrtoFloat(StringGrid1.Cells[8,k])*(1-((StrtoFloat(StringGrid1.Cells[7,k])-1)/StrtoFloat(StringGrid1.Cells[7,k])))-x[i-1]*StrtoFloat(StringGrid1.Cells[4,2]))))
         and (x[i]*StrtoFloat(StringGrid1.Cells[4,k])*StrtoFloat(StringGrid1.Cells[14,k])<=StrtoFloat(StringGrid1.Cells[12,k]))
         and (StrtoFloat(StringGrid1.Cells[12,k])<=(StrtoFloat(StringGrid1.Cells[4,k])*(1-StrtoFloat(StringGrid1.Cells[3,k]))))
         and ((x[i]*StrtoFloat(StringGrid1.Cells[4,k])*StrtoFloat(StringGrid1.Cells[3,k])+StrtoFloat(StringGrid1.Cells[3,k])*(x[i]*StrtoFloat(StringGrid1.Cells[4,k])-x[i]*StrtoFloat(StringGrid1.Cells[4,k])/StrtoFloat(StringGrid1.Cells[7,k]))*StrtoFloat(StringGrid1.Cells[8,k])/StrtoFloat(StringGrid1.Cells[6,k]))>=((StrtoFloat(StringGrid1.Cells[4,2])+(1+StrtoFloat(StringGrid1.Cells[9,k]))*StrtoFloat(StringGrid1.Cells[13,2])-StrtoFloat(StringGrid1.Cells[15,2]))))
         then}
        v[k,i]:=((x[i]*StrtoFloat(StringGrid1.Cells[4,k])-x[i]*StrtoFloat(StringGrid1.Cells[4,k])/StrtoFloat(StringGrid1.Cells[7,k]))
        *StrtoFloat(StringGrid1.Cells[8,k])/StrtoFloat(StringGrid1.Cells[6,k])-x[i]*StrtoFloat(StringGrid1.Cells[4,k])*StrtoFloat(StringGrid1.Cells[14,k]));

        StringGrid2.Cells[k,i]:=FloatToStr(v[k,i]);
    end;
  end;
end;

Теперь по второй грид цифры выводятся. Дальше, думаю сами справитесь.