delphi 前后记录的提取

第一次取 1 ,2 的值
第二次取 2 ,3 的值
...
第n次取 n ,n+1 的值.

假如所有记录存放在 一个数组 var arr:array[1..count] of String 中.

var i:integer;
var c1,c2:String;
for i:=1 to count-1 do
begin
c1:=arr[i];
c2:=arr[i+1];
showmessage(c1+c2);
end;

c1 c2 就是取到的值,,,

报歉 认不得啊

遍历该表,每次取2条就可以了吧

数据库是吧
adoquery1.first
while not adoquery1.eof do
begin
A:=adoquery1.fieldbyname('').asstring;
adoquery1.next;
B:=adoquery1.fieldbyname('').asstring;
adoquery1.next;
end;
这样的话，每次从数据库里取出两条记录。
具体用法，你可以自己改一下》