C의 소스를 보다 델파이로 옮기는 중인데
바이너리 파일 하나를 읽어서 처리를 해볼려고 합니다.
바이너리 파일은 처음 128Byte가 헤더이고
블록이 1024 바이트씩입니다 그리고 블록이 끝나면 Trailer가 128Byte가
있습니다. 처음 128Byte는 건너 뛴다음 블록을 1024바이트씩 읽으면
한블록의 처음 12바이트가 블록의 헤더가 됩니다.
블록의 12Byte를 건너뛰고 108바이트씩 짤라내면 하나의 레코드가 됩니다...
그런데 C에서 처럼 memcpy썼으면 좋겠는데 같은 기능을 하는 함수가
있는지 질문드립니다.
밑에는 완성하지 못한 소스입니다.

var
     iFileHandle, iFileSize : Integer;
     Buf : PChar;
     R_CDR : array [1..108] of char;
     FBLOCK : array [1..1024] of char;
     i, BLOCK_CNT, R_CNT, rec_cnt_blk, iBytesRead : Integer;
begin
     if OpenDialog1.Execute then
     begin
          try
               iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
               iFileSize := FileSeek(iFileHandle,0,2);
               FileSeek(iFileHandle,128,0);
               iBytesRead := FileRead(iFileHandle, FBLOCK, sizeofFBLOCK));
               showmessage(inttostr(iBytesRead));
               while iBytesRead <> 0 Do
               Begin
                    Inc(BLOCK_CNT); // Total Block Count //
                     // 1 Block 내에 있는 CDR 수 //
아래는 블록의 헤더중 11번째 Byte가 한블록에 몇개의 Record를 가지고
있는지 값을 가지고 있는데 그값을 가지고 올려고 하니 에러가 나더군요
                    rec_cnt_blk := StrToInt(FBLOCK[11]);

                    for i := 0 to rec_cnt_blk do
                    begin
                         CDR_CNT := CDR_CNT + 1; // Total CDR Count //
                         iBytesRead := iBytesRead + 12 + (i * 108);
                         //R_CDR := FBLOCK + 12;
                    end;}

                    iBytesRead := FileRead(iFileHandle, FBLOCK, sizeof(FBLOCK));
               end;
               FileClose(iFileHandle);

          finally

          end;