Цикл.Сохранение в цикле предыдущего значения

← →
Soi (2010-08-05 06:09) [0]

Добрый день! Такой вопрос: Я циклом перебираю все записи компонента ADOQuery (полученные неким запросом). Мне нужно сохранять в какой-то переменной значение предыдущей записи, чтобы потом его можно было сравнить с текущим значением (записью) цикла.
Например: 10-я запись в компоненте ADOQuery=100, а 11-я запись=200. Мне нужно 10-ю запись где-то сохранить, чтобы потом можно было произвести их сравнение, например так k:=11-я запись минус 10-я запись.
Вот пример как я начал делать:
for n := 1 to adoquery1.RecordCount do begin adoquery1.RecNo:=n; m:=adoquery1.FieldByName("fcurrentvalue").Value; end;
Подскажите как это можно реализовать?

← →
Anatoly Podgoretsky © (2010-08-05 07:48) [1]

Нужно где-то сохранить 10-ю запись , потом произвести их сравнение, например так k:=11-я запись минус 10-я запись.

аля так как-то

adoquery1.First;
Push := adoquery1.FieldByName("fcurrentvalue").Value;
repeat
adoquery1.Next;
k:= Push - adoquery1.FieldByName("fcurrentvalue").Value;
Push := adoquery1.FieldByName("fcurrentvalue").Value;
until adoquery1.eof;

Цикл.Сохранение в цикле предыдущего значения Найти похожие ветки