delphi乱码问题
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了delphi乱码问题相关的知识,希望对你有一定的参考价值。
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;
执行后打开文件出现的都是乱码,为什么呢?
intf:TextFile;
这句这么改即可
以上是关于delphi乱码问题的主要内容,如果未能解决你的问题,请参考以下文章