关于文件的读出与写入

Question

有如下代码：
myinifile: TextFile;
  FileName: String;
  pwd, username: String;
begin
   Filename:=ExtractFilePath(Paramstr(0))+'program.log';
   assignfile(myinifile,Filename);
   Writeln(myinifile,'号的');
运行出错：Project.exe raised exception class EInOutError with message 'I/O
error 103'.Process stopped.Use Step or Run to continue.

Answer 1

assignfile(myinifile,Filename);
rewrite(myinifile)  ;
 Writeln(myinifile,'号的');
如果是ini文件这样是不行的

Answer 2

Filename存在吗，如果不存在会出错。

Answer 3

103 File not open Reported by CloseFile, Read Write, Seek, Eof, FilePos, FileSize, Flush, BlockRead, or BlockWrite if the file is not open.

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
   myinifile: TextFile;
  FileName: String;
  pwd,username: String;
begin
   Filename:=ExtractFilePath(Paramstr(0))+'program.log';
   assignfile(myinifile,Filename);
   rewrite(myinifile);
   writeln(myinifile,'sfds');
//   Writeln(myinifile,'号的');
end;加上一个rewrite就可以了

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
   myinifile: TextFile;
  FileName: String;
  pwd,username: String;
begin
   Filename:=ExtractFilePath(Paramstr(0))+'program.log';
   assignfile(myinifile,Filename);
   rewrite(myinifile);
   writeln(myinifile,'sfds');
//   Writeln(myinifile,'号的');
   closefile(myinifile);
end;
最后还要加上closefile养成一个好习惯

Answer 6

呵呵，给分吧~~~~
procedure TForm1.Button1Click(Sender: TObject);
var
   myinifile: TextFile;
  FileName: String;
  pwd,username: String;
begin
   Filename:=ExtractFilePath(Paramstr(0))+'program.log';
   assignfile(myinifile,Filename);
   if not fileexists(filename) then
     rewrite(myinifile)
   else
     append(myinifile);
   writeln(myinifile,'sfds');
//   Writeln(myinifile,'号的');
   closefile(myinifile);
end;

Answer 7

Filename:=ExtractFilePath(Paramstr(0))+'program.log';
assignfile(myinifile,Filename);
reset(myinifile,filesize(myinifile);
writeln(myinifile,???);
closefile(myinifile);//这行别忘了！100 磁盘读错误,若要对超过格式文件尾进行读取时
101 磁盘写错误,若磁盘满时,由CloseFile,Write,Writeln或Flush报告
102 没有指定文件,若文件变量没有由Assign或AssignFile赋值,由Reset,Rewrite,Append,Rename和Erase报告
103 文件没有打开,若文件未打开,由CloseFile,Read,Write,Seek,Eof,FilePos,FileSize,Flush,BlockRead或BlockWrite报告
104 输入文件未打开,由Read,Readln,Eof,Eoln,SeekEof或SeekEoln报告有关输入的文本文件未打开
105 输出文件未打开,由Write和Writeln报告有关文本文件没有用Console应用程序生成
106 无效的数据格式,由Read或Readln报告从文本文件读取的数据格式