为什么写进去的是乱码？

Question

procedure TForm1.Button1Click(Sender: TObject);
 var fileeaa:file;
   i:integer;begin
              assignfile(fileeaa,'c:/testfile.txt');
             rewrite(fileeaa,1);
             for i:=0 to 10 do
              blockwrite(fileeaa,i,sizeof(i));   end;end.         当我打开c:/testfile.txt 得到的是乱码，为什么呀

Answer 1

writeln 
不行啊，不知道你怎么用的

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
 var fileeaa:TextFile;
   i:integer;begin
              assignfile(fileeaa,'c:/testfile.txt');
             rewrite(fileeaa,1);
             for i:=0 to 10 do
              Writeln(fileeaa,IntToStr(i));   end;end.

Answer 3

在rewrite行   提示这个错误啊[Error] testfileUnit1.pas(32): Too many actual parameters
[Fatal Error] testfileProject1.dpr(5): Could not compile used unit 'testfileUnit1.pas'

Answer 4

rewrite(fileeaa,1);改為rewrite(fileeaa);

Answer 5

hanhsh：你好，你有qq吗，有问题请教

Answer 6

不可能 Writeln 是對文件寫操作的,与Readln相反,不可能寫求進去.你看個一下幫助文件里面有例子.

Answer 7

对文件操作得方法太多了，给你一个比较规范得方法：var
 myfile:Textfile;
 i:integer;
begin
    assignfile(myfile,'thefile.txt');
    rewrite(myfile);
    try
       for i:=1 to 10 do
       begin
           writeln(myfile,i);
       end;
    finally
       closefile(myfile);
    end;
end;最好查一下关于文件操作方面得帮助，对各个函数得功能作一个全面得了解，对你会有好处的