创建文件~~~~

Question

unsigned char WINRING_Data[1988] = { 
.........
......... //太多了 省略
.........
}; void __fastcall TFmain::CreateSYS(void) { 
FILE* fp; 
fp=fopen("WINRING.sys","wb+"); 
fwrite(WINRING_Data,sizeof(unsigned char),1988,fp); 
fclose(fp); 
} 
上面是 通过 WINRING_Data 创建WINRING.sys文件
如何把上面的代码转化成delphi的
或是直接用delphi编写

Answer 1

WINRING_Data: array[0..1987] of Byte = (....);var
  fs: TFileStream;
begin
  fs := TFileStream.Create('C:\WINRING.sys', fmCreate or fmOpenWrite);
  fs.Write(WINRING_Data, SizeOf(WINRING_Data));
  fs.Free;
end;

Answer 2

type
  TWINRING_Data=array[0..1987] of char;
var
  WINRING_Data:TWINRING_Data;
procedure TForm1.Button2Click(Sender: TObject);
var
  sfile: file of TWINRING_Data;
  str:  string;
begin
  AssignFile(dfile ,'d:\bb.txt') ;
  Rewrite(dfile);
  write(dfile,WINRING_Data);
  closefile(dfile);
end;

Answer 3

type
  TWINRING_Data=array[0..1987] of char;
var
  WINRING_Data:TWINRING_Data;
procedure TForm1.Button2Click(Sender: TObject);
var
  sfile: file of TWINRING_Data;
  str:  string;
begin
  AssignFile(dfile ,'d:\bb.txt') ;
  Rewrite(dfile);
  write(dfile,WINRING_Data);
  closefile(dfile);
end;