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

[gigar]

Всем доброго дня. Очень нужна Ваша помощь.
Есть связка ADOConnection+Adoquery+DataSource (использую базу Access) все выводится в DBgrid.
Таблица вида :
_________
|_А1_|_А2_|
|_2__|____|
|_1__|____|
|_4__|____| и так далее.

Как сделать так, чтобы:
1. Значение из строки 1 столбца А сравнивалось со значение из строки 2 столбца А, значение из строки 2 столбца А со
значением из строки 3 столбца А и так до конца таблицы;
2. Если предыдущая строка столбца А больше текущей, то в столбец А2 записать 1 и так до конца таблицы;
3. В столбце А2 вторая строка=предыдущая строка стобца А2+ вторая строка столбца А1 и так до конца таблицы;

Спасибо за будущую помощь!

[Yurk@]

для п.1 и п.2 как-то так

var
  fStr : integer; // значение А1 предыдущей строки
begin
  if ADOQuery.RecordCount>1 then
  begin
    ADOQuery.First;
    fStr := ADOQuery.FieldByName('A1').asInteger; 
    ADOQuery.Next;
    while not ADOQuery.Eof do
    begin
      if fStr > ADOQuery.FieldByName('A1').AsInteger then
        ADOQuery.FieldByName('A2').AsInteger := 1;
      fStr := ADOQuery.FieldByName('A1').AsInteger;
      ADOQuery.Next;
    end;
  end
  else
    ShowMessage('В таблице меньше 2х строк');
end;

3. В столбце А2 вторая строка=предыдущая строка стобца А2+ вторая строка столбца А1 и так до конца таблицы;

а вот тут не понял (((

[gigar]

Огромное спасибо Yurk@.
По поводу 3 пункта, то например

3 строка в стобце А2 будут равна сумме 2 строки столбца А2 + 3 строка А1

[Yurk@]

эммм .... тогда уточни по п2.

2. ... то в столбец А2 записать 1 и так до конца таблицы;

столбец А2 какой строки ? 1й или 2й ?

[gigar]

Сообщение от Yurk@

эммм .... тогда уточни по п2. столбец А2 какой строки ? 1й или 2й ?

Если предыдущая строка столбца А1 больше текущей, то в столбец А2 записать 1 в текущую строку и так до конца таблицы;




В смысле записывается цифра 1

[Yurk@]

если я верно понял то выходит накладка между п2 и п3 по полю А2 т.к. начиная с 3й строки таблицы они будут перезаписывать значения друг друга
где логика ?

[gigar]

спасибо за замечание. Я упростил процедуру. Надо следующее:
есть коэффициент к=100
___________________________
|__|_B1_|_B2_|_B3_|_B4_|_B5_|
|A1|210_|__0_|__0_|__0_|_0__|
|A2|370_|_160|_1,6|__1_|_1__|
|A3|490_|_120|_1,2|__1_|_2__|
|A4|560_|__70|_0,7|_-1_|_1__|
|A5|760_|_200|__2_|_2_|_3__|
|A6|870_|_110|_1,1_|_1_|_4__|

В столбце B1 несколько сотен значений.
A2;B2= A2;B1-A1;B1 (370-210=160)
A3;B2=A3;B1-A2B1 (490-370=120) и так далее

столбец В3=B2/100

Столбец В4= только целая часть от В3 и если значение меньше 1 то записывается в ячейку -1

Столбец B5=поочередное сложение строк в B5

Огромное спасибо за помощь!

[Yurk@]

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

про B5 не понял

[gigar]

По поводу B5

A2;B5=A1;B5+A2;B4
A3;B5=A2;B5+A3;B4 и так далее.

И что делать если в B1 будут данные вида например 0,2345 какой тип переменных присваивать.

Спасибо

[Yurk@]

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

И что делать если в B1 будут данные вида например 0,2345 какой тип переменных присваивать.

в таком случае лучше везде использовать float