[glorx]

В StringGrid'е второе не n, а i должно быть

спс это исправил, а что насчет обработчика для кнопки второй формы!!
Это кнопка на которую нажимаем (ОК)после ввода значений, при ее нажатии либо опять вводим значения если n>1 либо форма пропадает и данные записываются в таблицу..

[BoRoV]

Это кнопка на которую нажимаем (ОК)после ввода значений, при ее нажатии либо опять вводим значения если n>1 либо форма пропадает и только одна строяка значений запишется в таблицу..
Ответить с цитированием

А что с ней не так? Ошибка может быть наверное только из-за входных данных.

[glorx]

А что с ней не так? Ошибка может быть наверное только из-за входных данных.

ну смотри по сути выше указаный обработчик был написан на одну кнопку, т.е первую на первой форме!!
а для второй что прописать?? ну например при нажатии на нее нужно чтобы поля очищались для ввода новых данных, менялся заголовок с номером опыта! и при завершении цикла N-Ого она закрывалась!!
вот этого хочется добится..
что скажешь? может нужно код для первой кнопки разбить на 2е части? я не могу допетрить сам(

[BoRoV]

А этого у тебя разве нет, у тебя кажется что-то такое и реализованно.

[glorx]

этого у тебя разве нет, у тебя кажется что-то такое и реализованно.

эмммм...вроде как обработчик на одну кнопку писался..
я вот вспомнил что кнопки то 2е а обработчик один..

[BoRoV]

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

эмммм...вроде как обработчик на одну кнопку писался..
я вот вспомнил что кнопки то 2е а обработчик один..

С главной формы в цикле очищай поля второй и запускай его на ввод, во второй по кнопке идёт вся математика и вывод в стринггрид и закрытие формы. Кажется самый оптимальный вариант.

[glorx]

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

С главной формы в цикле очищай поля второй и запускай его на ввод, во второй по кнопке идёт вся математика и вывод в стринггрид и закрытие формы. Кажется самый оптимальный вариант.

Если честно не очень понял...
если время есть у тибя помоги с кодом пажалста, запутался совсем=(
может я не до конца объяснил, но первая кнопка по сути используется для вызова второй формы, а все остальное должно быть на второй кнопке

[BoRoV]

Код:

var // глобальная
  i: integer;

Код:

proc Form1.ButtonClick()
begin
  for i := 1 to n do
  begin
    Form2.Edit1.Text := '';
    // и также для остальных эдитов
    i := n;
    Form2.ShowModal;
  end;
end;

Код:

proc Form2.ButtonClick()
begin
  // математика
  Form1.StringGrid[1, i] := значение
  // также для остальных ячеек
  Close;
end;

Как-то так...

[glorx]

ругается на i:=n;

[glorx]

если убрать i:=n;
то в результате например 3х опытов в таблицу записываются одн и те же знаечния, вероятно расчеты для последних введенных данных!!!
может ошибка в цикле? в операторных скобках где то? выложу код помогите найти пажалста:
для первой кнопки:

Код:

procedure TForm1.btn6Click(Sender: TObject);
var n:integer;
begin
  n:=StrToInt(Form1.lbledt23.text);
for i := 1 to n do
  begin
     EnterFrm.Caption:='Введите данные '+IntToStr(i)+' режима';
    EnterFrm.lbledt21.Text:='';
    EnterFrm.lbledt22.Text:='';
    EnterFrm.lbledt28.Text:='';
    EnterFrm.lbledt29.Text:='';
   // i:=n;
    EnterFrm.ShowModal;
  end;
end;

для второй:

Код:

procedure TEnterFrm.btn10Click(Sender: TObject);
var i,n,D:Integer;
Lt,Ld,Zt,Zd,Ft,Fd,U,E,H,fod,fi1,e1,n1:real;
begin
n:=StrToInt(Form1.lbledt23.text);
//============запускаем цикл====================
for d:=1 to n do
    begin
//===============================
  fod:=strtofloat(Form1.lbledt20.Text);
  for i:=1 to n do
    begin

      Lt:=StrTofloat(EnterFrm.lbledt21.text);
     Ld:=StrTofloat(EnterFrm.lbledt22.text);
     Zt:=StrTofloat(EnterFrm.lbledt28.text);
     Zd:=StrTofloat(EnterFrm.lbledt29.text);
     Ft:=Lt*165; //усилие тормоза
     Fd:=Ld*195; // усилие двигателя
      U:=Ft/2*fod; // коэф.тяги
      E:=(1-(Zt/Zd))*100; // скольжение
     H:=((Ft*Zt)/(Fd/Zd))*100; // КПД
   

     Form1.strngrd1.Cells[1,i]:=floatToStr(Ft);
     Form1.strngrd1.Cells[2,i]:=floatToStr(Fd);
     Form1.strngrd1.Cells[3,i]:=floatToStr(U);
     Form1.strngrd1.Cells[4,i]:=floatToStr(E);
     Form1.strngrd1.Cells[5,i]:=floatToStr(H);
     Close;
    end;
 end;
end;

где ошибка?

[BoRoV]

Первая:

Код:

var
  count: integer;
...
procedure TForm1.btn6Click(Sender: TObject);
var n:integer;
begin
  n:=StrToInt(Form1.lbledt23.text);
for i := 1 to n do
  begin
    EnterFrm.Caption:='Введите данные '+IntToStr(i)+' режима';
    EnterFrm.lbledt21.Text:='';
    EnterFrm.lbledt22.Text:='';
    EnterFrm.lbledt28.Text:='';
    EnterFrm.lbledt29.Text:='';
    count:=n;
    EnterFrm.ShowModal;
  end;
end;

Вторая (не пойму зачем тебе тут цикл, если он есть в первой):

Код:

procedure TEnterFrm.btn10Click(Sender: TObject);
var i,n,D:Integer;
Lt,Ld,Zt,Zd,Ft,Fd,U,E,H,fod,fi1,e1,n1:real;
begin
n:=StrToInt(Form1.lbledt23.text);
//============запускаем цикл====================
for d:=1 to n do
    begin
//===============================
  fod:=strtofloat(Form1.lbledt20.Text);
  for i:=1 to n do
    begin

      Lt:=StrTofloat(EnterFrm.lbledt21.text);
     Ld:=StrTofloat(EnterFrm.lbledt22.text);
     Zt:=StrTofloat(EnterFrm.lbledt28.text);
     Zd:=StrTofloat(EnterFrm.lbledt29.text);
     Ft:=Lt*165; //усилие тормоза
     Fd:=Ld*195; // усилие двигателя
      U:=Ft/2*fod; // коэф.тяги
      E:=(1-(Zt/Zd))*100; // скольжение
     H:=((Ft*Zt)/(Fd/Zd))*100; // КПД
   

     Form1.strngrd1.Cells[1,TForm1.count]:=floatToStr(Ft);
     Form1.strngrd1.Cells[2,TForm1.count]:=floatToStr(Fd);
     Form1.strngrd1.Cells[3,TForm1.count]:=floatToStr(U);
     Form1.strngrd1.Cells[4,TForm1.count]:=floatToStr(E);
     Form1.strngrd1.Cells[5,TForm1.count]:=floatToStr(H);
     Close;
    end;
 end;
end;

[glorx]

ругается на Count, что то с идентификатором

Form1.strngrd1.Cells[1,TForm1.count]:=floatToStr(Ft);

он и не находит count с Tform1


Если просто count оставить, убрав оба цикла с этой кнопки, то он в таблицу записывает только последний расчет!! предыдущие ячейки пустые он их как бы считает но не записывает результат

[BoRoV]

Убери тформ1, то я немного тупанул просто коунт.

[glorx]

вот что получится:

Если просто count оставить, убрав оба цикла с этой кнопки, то он в таблицу записывает только последний расчет!! предыдущие ячейки пустые он их как бы считает но не записывает результат

тут оба цикла убираем???

Код:

procedure TEnterFrm.btn10Click(Sender: TObject);
var i,n,D:Integer;
Lt,Ld,Zt,Zd,Ft,Fd,U,E,H,fod,fi1,e1,n1:real;
begin
n:=StrToInt(Form1.lbledt23.text);
//============запускаем цикл====================
for d:=1 to n do
    begin
//===============================
  fod:=strtofloat(Form1.lbledt20.Text);
  for i:=1 to n do
    begin

      Lt:=StrTofloat(EnterFrm.lbledt21.text);
     Ld:=StrTofloat(EnterFrm.lbledt22.text);
     Zt:=StrTofloat(EnterFrm.lbledt28.text);
     Zd:=StrTofloat(EnterFrm.lbledt29.text);
     Ft:=Lt*165; //усилие тормоза
     Fd:=Ld*195; // усилие двигателя
      U:=Ft/2*fod; // коэф.тяги
      E:=(1-(Zt/Zd))*100; // скольжение
     H:=((Ft*Zt)/(Fd/Zd))*100; // КПД
   

     Form1.strngrd1.Cells[1,TForm1.count]:=floatToStr(Ft);
     Form1.strngrd1.Cells[2,TForm1.count]:=floatToStr(Fd);
     Form1.strngrd1.Cells[3,TForm1.count]:=floatToStr(U);
     Form1.strngrd1.Cells[4,TForm1.count]:=floatToStr(E);
     Form1.strngrd1.Cells[5,TForm1.count]:=floatToStr(H);
     Close;
    end;
 end;
end;

[BoRoV]

Не нужно оба, только со врой формы.