Hola amigos, tengo el siguiente problema:
Código Delphi
[-]
type
TFrame20ms = packed record
Lc: SmallInt; Rc: SmallInt; end;
En un procedimiento defino lo siguiente:
Código Delphi
[-]
const
RBUFLEN = 32000 / 4;
var
rbuf: array of TFrame20ms;
fbuf: array of TFrame20ms;
begin
SetLength(rbuf, RBUFLEN);
SetLength(fbuf, 160); ....
rcnt := FileRead(InHandle, rbuf[0], RBUFLEN * SizeOf(rbuf[0]));
l := 0;
h := 159;
for i := 1 to NumFrames do
begin
Move(rbuf[l], fbuf[0], SizeOf(fbuf));
.....
l := h+1;
h := h+160;
....
end;
Gracias y espero haberme explicado.