Значения со stringrid

[Вероника92]

не могу найти ошибку,проблема заключается в том что в переменную L значения со stringrid умножаются на 2 по непонятной причине.

 if (form1.rg1.itemindex=3) and (rg2.itemindex=1) then
    begin
      if strtofloat(edt2.text)<strtofloat(edt3.text) then
      begin
        if rg1.itemindex=0 then
        begin
          for i:=1 to t do
          for j:=1 to t do
          d[i,j]:=-strtoint(strngrd5.cells[j-1,i-1]);
          for i:=1 to t do
          for j:=1 to t do
          c[i,j]:=strtoint(strngrd2.cells[j-1,i-1])
        end
        else
        if rg1.itemindex=1 then
        begin
          for i:=1 to t do
          for j:=1 to t do
          d[i,j]:=strtoint(strngrd5.cells[j-1,i-1]);
          for i:=1 to t do
          for j:=1 to t do
          c[i,j]:=-strtoint(strngrd2.cells[j-1,i-1])
        end;
          for i:=1 to t do
          for j:=1 to t do
          x[i,j]:=0;
          L:=0;
          VengMethod(D, X, L);
          for i:=1 to t do
          for j:=1 to t do
          strngrd3.Cells[j-1,i-1]:=IntToStr(x[i,j]);
          for i:=1 to t do
          begin
             for j:=1 to t do
           if StrToInt(strngrd3.cells[j-1,i-1])=1 then
           l:=l+strtoint(strngrd4.cells[j-1,i-1]);
          end;
          edt1.Text:=floatToStr(L);

[FPaul]

Offtop. Для всех языков есть форматтеры исходного кода. Для IDE Delphi существуют плагины GExpert (бесплатные официально). Может быть у IDE встроенный форматтер. У меня FreePascal и пользуюсь JCF, которым и Delphi можно обработать. Иначе тяжело читать и искать ошибки.

На первый взгляд видно:
1. При rg1.itemindex=0 и 1 заполняются массивы d и c. А как дела при других значениях.
2. Переменная L упомянута в 4 местах. Причём к моменту суммирования с ячейками stringgrd4 глазами значение не определяется. Уточнить можно только отладчиком.
3. Как объявлена L? Видно присвоение 0, отправка в VengMethod, сложение с целыми, а потом бац edt1.Text:=floatToStr(L);
А так ничего криминального.

[Вероника92]

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

Offtop. Для всех языков есть форматтеры исходного кода. Для IDE Delphi существуют плагины GExpert (бесплатные официально). Может быть у IDE встроенный форматтер. У меня FreePascal и пользуюсь JCF, которым и Delphi можно обработать. Иначе тяжело читать и искать ошибки.

На первый взгляд видно:
1. При rg1.itemindex=0 и 1 заполняются массивы d и c. А как дела при других значениях.
2. Переменная L упомянута в 4 местах. Причём к моменту суммирования с ячейками stringgrd4 глазами значение не определяется. Уточнить можно только отладчиком.
3. Как объявлена L? Видно присвоение 0, отправка в VengMethod, сложение с целыми, а потом бац edt1.Text:=floatToStr(L);
А так ничего криминального.

unit2 алгоритм 2, в остальных пунктах все работало, а тут раз и все на 2 умножается(((

[FPaul]

У меня нет Delphi. Придётся подождать кого-нибудь.
А что значит умножается? В VengMethod в L что-то суммируется, потом в Unit2 что-то добавляется. Может одно действие лишнее.
Ещё - переменная L - глобальная. Может кто-то дополнительно ей "помогает".
Попробуй поставить точки останова на интересуущих местах и посмотри на значения L.