VC代码转换为Pascal。。怎么去实现呢？、读写文件过程。。转换。。

Question

FILE *fp ;
CDC *pdc = GetDC();
fp = fopen("d:\\P0122714.088","rb");
fseek(fp,1024,0);
char data[5000];
char *p = data;
         int hdc = (int)(pdc->m_hDC);
for(int i = 0 ;i < 360 ; i++)
{
fread(data,1,2060,fp);
c_pa.DrawAPPIRadial(240,240,hdc,(long* )p,i,240);
}
fclose(fp);  主要是读文件地时候，我不知道如何去转化。。

Answer 1

var
  F: file;
  Data: array [1..5000] of Char;
begin
  AssignFile(F, 'D:\P0122714.088');
  Reset(F);
  Seek(F, 1024);
  BlockRead(F, Data, 2060);
  CloseFile(F);
end;

Answer 2

fread(data,1,2060,fp);  
主要是翻译这段小代码。。