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个回答
展开全部
var
intf:TextFile;
这句这么改即可
intf:TextFile;
这句这么改即可
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
金山毒霸
2024-10-31 广告
大部分系统错误，是因为某些DLL文件丢失造成的，比如未安装DirectX9或DirectX 9.0组件已损坏、缺少Visual C ++库、未安装.net库。解决方法如下：一、 手动解决方法1、先确定电脑操作系统是多少位的，现在的电脑一般都...
点击进入详情页
本回答由金山毒霸提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
