delphi乱码问题 55
procedureTForm2.Button2Click(Sender:TObject);typeintfile=fileofinteger;varintf:intfil...
procedure TForm2.Button2Click(Sender: TObject);
type
intfile=file of integer;
var
intf:intfile;
str:string;
i:integer;
begin
str:='c:\intfile.txt';
assignfile(intf,str);
rewrite(intf);
for i:=1 to 100 do
if (i mod 2)=0 then
write(intf,i);
closefile(intf);
end;
执行后打开文件出现的都是乱码，为什么呢？ 展开
type
intfile=file of integer;
var
intf:intfile;
str:string;
i:integer;
begin
str:='c:\intfile.txt';
assignfile(intf,str);
rewrite(intf);
for i:=1 to 100 do
if (i mod 2)=0 then
write(intf,i);
closefile(intf);
end;
执行后打开文件出现的都是乱码，为什么呢？ 展开
1个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
