Цикл сравнения строк

[gigar]

Огромнейшее спасибо Yurk@ выручил.

А еще подскажи, как лучше записывать эти данные в строки через ADOQuery.SQL.Add или методами Post

[gigar]

var
  fStr: Integer; // значение B1 предыдущей строки
  vStr: Integer; // значение B5 предыдущей строки
begin

  if ADOQuery1.RecordCount > 1 then
  begin

    ADOQuery1.First;

    fStr := ADOQuery1.FieldByName('B1').asInteger;
    // запоминаем первое значение В1
    vStr := ADOQuery1.FieldByName('B5').asInteger;
    // запоминаем первое значение В5
    ADOQuery1.Next;

    while not ADOQuery1.Eof do                        ADOQuery1.Active:=True;
ADOQuery1.Edit;
ADOQuery1.Insert;
    begin

      ADOQuery1.FieldByName('B2').asInteger := fStr - ADOQuery1.FieldByName
        ('B1').asInteger;
      ADOQuery1.FieldByName('B3').AsFloat := ADOQuery1.FieldByName('B2')
        .asInteger / 100;
      if ADOQuery1.FieldByName('B3').AsFloat >= 1 then
        ADOQuery1.FieldByName('B4').asInteger :=
          Trunc(ADOQuery1.FieldByName('B3').AsFloat)

      else
        ADOQuery1.FieldByName('B4').asInteger := -1;
      ADOQuery1.FieldByName('B5').asInteger := ADOQuery1.FieldByName('B4')
        .asInteger + vStr;
      fStr := ADOQuery1.FieldByName('B5').asInteger;
      // запоминаем В1 будущей предыдущей строки
      vStr := ADOQuery1.FieldByName('B5').asInteger;
      // запоминаем В5 будущей предыдущей строки
      ADOQuery1.Next;
    end;
      ADOQuery1.Post;
  end

  else
    ShowMessage('В таблице меньше 2х строк');

end;

Программа виснет, что тут такое?

[rdama]

Логическая ошибка в коде!
Что у вас выполняется в цикле?

[gigar]

В цикле выполняются вычисления для таблицы -- по итогу должны быть заполнены все 5 столбцов, но программа зависает.

[rdama]

Да я спрашиваю не про то что там происходит. А про то что у вас написано в теле цикла.
У вас написано в цикле лишь это остальное к циклу не имеет отношения. Т.к. выпадает из его тела.

while not ADOQuery1.Eof do                        ADOQuery1.Active:=True;

[gigar]

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

[rdama]

if ADOQuery1.RecordCount > 1 then
begin
  ADOQuery1.First;
  fStr := ADOQuery1.FieldByName('B1').asInteger;
    // запоминаем первое значение В1
  vStr := ADOQuery1.FieldByName('B5').asInteger;
    // запоминаем первое значение В5
  ADOQuery1.Next;
  while not ADOQuery1.Eof do                        
  begin
    ADOQuery1.Edit;
    ADOQuery1.FieldByName('B2').asInteger := fStr - ADOQuery1.FieldByName('B1').asInteger;
    ADOQuery1.FieldByName('B3').AsFloat := ADOQuery1.FieldByName('B2').asInteger / 100;
    if ADOQuery1.FieldByName('B3').AsFloat >= 1 then
      ADOQuery1.FieldByName('B4').asInteger := Trunc(ADOQuery1.FieldByName('B3').AsFloat)
    else
      ADOQuery1.FieldByName('B4').asInteger := -1;
    ADOQuery1.FieldByName('B5').asInteger := ADOQuery1.FieldByName('B4').asInteger + vStr;
    fStr := ADOQuery1.FieldByName('B5').asInteger;
      // запоминаем В1 будущей предыдущей строки
    vStr := ADOQuery1.FieldByName('B5').asInteger;
      // запоминаем В5 будущей предыдущей строки
    ADOQuery1.Post;
    ADOQuery1.Next;
  end;
end
else
  ShowMessage('В таблице меньше 2х строк');

Пробуй

[gigar]

Огромное спасибо