Скачать: CL | DM;

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

← →
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-я запись.

---

← →
12 ©   (2010-08-05 08:38) [2]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.004 c