如何打开testfile可读可写？

Question

如题。append以只写定位到文件尾，rewrite则创建可写文件，reset为只读，怎样可以打开可读可写，并且把光标定位到文件头，而且插入内容时文件后面的内容不删除，而是后移？请各位帮帮忙！

Answer 1

function FileOpen(const FileName: string; Mode: LongWord): Integer;
modefmOpenReadWrite Open for read and write access.

Answer 2

Procedure NewTxt;
Var
　F : Textfile;
Begin
　AssignFile(F, 'c:\ek.txt'); {将文件名与变量 F 关联}
　ReWrite(F); {创建一个新的文件并命名为 ek.txt}
　Writeln(F, '将您要写入的文本写入到一个 .txt 文件');
　Closefile(F); {关闭文件 F}
End;Procedure OpenTxt;
Var
　F : Textfile;
Begin
　AssignFile(F, 'c:\ek.txt'); {将文件名与变量 F 关联}
　Append(F); {以编辑方式打开文件 F }
　Writeln(F, '将您要写入的文本写入到一个 .txt 文件');
　Closefile(F); {关闭文件 F}
End;Procedure ReadTxt;
Var
　F : Textfile;
　str : String;
Begin
　AssignFile(F, 'c:\ek.txt'); {将文件名与变量 F 关联}
　Reset(F); {打开并读取文件 F }
　Readln(F, str);
　ShowMessage('文件有:' +str + '行。');
　Closefile(F); {关闭文件 F}
End;