关于写文件的有关问题
关于写文件的问题
我用blockwrite写文件时,怎么文件里出现了好多乱码???????????
------解决方案--------------------
修改为:
var
f:file;
i:integer;
s:string;
begin
assignfile(f, 'h:\1.ini ');
rewrite(f, 1);
s := 'admin ';
blockwrite(f, s[1], length(s), i);
closefile(f);
end;
我用blockwrite写文件时,怎么文件里出现了好多乱码???????????
------解决方案--------------------
修改为:
var
f:file;
i:integer;
s:string;
begin
assignfile(f, 'h:\1.ini ');
rewrite(f, 1);
s := 'admin ';
blockwrite(f, s[1], length(s), i);
closefile(f);
end;