| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Цикл.Сохранение в цикле предыдущего значения [D7, WinXP]
Soi © (2010-08-05 06:09:00)Добрый день! Такой вопрос: Я циклом перебираю все записи компонента 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;
Подскажите как это можно реализовать?
12 (2010-08-05 08:38:00) [1]аля так как-то
adoquery1.First;
Push := adoquery1.FieldByName('fcurrentvalue').Value;
repeat
adoquery1.Next;
k:= Push - adoquery1.FieldByName('fcurrentvalue').Value;
Push := adoquery1.FieldByName('fcurrentvalue').Value;
until adoquery1.eof;
Anatoly Podgoretsky (2010-08-05 07:48:00) [2]Нужно где-то сохранить 10-ю запись , потом произвести их сравнение, например так k:=11-я запись минус 10-я запись.
| |
