文件读写问题

Question

是否用读写方式打开？有没有调用Close(fp)函数，没有调用的话可能有问题。在有，可能是你的循环函数的定位不对，单就这两个函数没有问题。

Answer 1

是否用读写方式打开？有没有调用Close(fp)函数，没有调用的话可能有问题。在有，可能是你的循环函数的定位不对，单就这两个函数没有问题。

Answer 2

assignfile(mytext,studentdirectory+'\design.sct');
         reset(mytext);
         assignfile(kscj, studentdirectory+'\'+'temp.txt');
         rewrite(cj);
          while not eof (mytext) do
           begin
             readln(mytext,str);
             str:=trim(str);
             writeln(cj,str);
           end;
         closefile(cj);
         closefile(mytext);

Answer 3

那个文件我用记事本打开是好的，应该可以写成txt文件的

Answer 4

reset(mytext)创建并打开文件，如果mytext已经存在，reset(mytext)相当于用一个空文件覆盖了原文件，所以什么页读不出来

Answer 5

wmh_654321(qqq)  ：你说的不对吧！我有些sct文件可以读出来，是正常的。有些就不可以了！有些只能读一半，有些一个字符都读不出来！！

Answer 6

cj  ???还是kscj  ??? 怎么不一样啊？

Answer 7

rewrite(kscj);和writeln(kscj,str);及closefile(kscj);

Answer 8

我读这个文本，是vfp工程中的sct文件。因为它不是文本格式的，所以打开有很多乱码！！文件中间可能出现了文件结束符，但文件并没结束！怎么办？
当然都是cj，不是kscj

Answer 9

blockread 
可读指定长度数据

Answer 10

delphi中如何读取超过255长度的字符串？？？

Answer 11

var
  str:String;
  cj,mytext:TextFile;
begin  
  AssignFile(mytext,studentdirectory+'\design.sct');
  Reset(mytext);
  AssignFile(cj, studentdirectory+'\'+'temp.txt');
  rewrite(cj);
  while not eof (mytext) do
  begin
     readln(mytext,str);
     //不要str:=trim(str);这一句
     writeln(cj,str);
   end;
   closefile(cj);
   closefile(mytext);
end;
//以上代码用Delphi的.~pas文件测试通过!