var
f: file;
m, n: integer;
begin
AssignFile(f, 'c:\test\test.dat');
Reset(f, 1);
Seek(f, 10);
n:= 111;
BlockWrite(f, n, sizeof(n), m);
CloseFile(f);
end;
f: file;
m, n: integer;
begin
AssignFile(f, 'c:\test\test.dat');
Reset(f, 1);
Seek(f, 10);
n:= 111;
BlockWrite(f, n, sizeof(n), m);
CloseFile(f);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货