如何从一个记录数组中读取下一条数据

Question

如何从一个记录数组中读取下一条数据???

Answer 1

不管是int数组还是记录数组都是数组，
var
 i:integer;
 s:Intger;
begin
  
 S:=array[1]
end;
搞个For循环不就是下一条
你的记录也一样啊要有变量才能啊！

Answer 2

type
  TResult = Record
   RecvType:byte;
   Oid:Integer;
   CurrTimes:Integer;
   SendTime:array [0..14] of byte;
   SendMode: array [0..8] of byte;
   DestNo: array [0..21] of byte;
   State:byte;
   ChargeNo: array [0..21] of byte;
   Reserve: array [0..110] of byte;
  end;
...
var
 s:TResult
 buffer:array [0..4096] of char
begin
Move(Buffer,s,sizeof(s));   如何读取下一条数据???

Answer 3

var
 s:^TResult;
 buffer:array [0..9] of TResult ;
begin
 s^:=buffer[0];
 inc(s);
end;

Answer 4

var
 s:TResult
 Sa:　array [10..100] of TResult;
 buffer:array [0..4096] of char
begin
  Move(Buffer,s,sizeof(s));//遍历数组设置数组中的结构中的变量值
for I := Low(Sa) to High(Sa)
begin
  Sa[I].RecvType := 
  Sa[I].Oid      :=
end  //将S中的内容复制了Buffer中
CopyMemory(@Buffer, @S.RecvType[1], SizeOf(TResult));

Answer 5

设一个指向记录数组的指针S 指针后移用inc(S) 就可以