创建文件~~~~

[pyj4477]

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编写

[lake_cx]

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;

[yuqianyi1974]

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;

[fangsp]

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;

[qkhhxkj102]

收藏