如何对TXT文件进行读写阿！！！

[zheng_ast]

我现在想实现二种情况：
1、我想一条记录一条记录往TXT文件里写入，不擦掉原来的，而且要换行；
2、在插入新的记录时把以前的都擦掉
谢谢！
急！！！

[zzq4823]

AssignFile(FH,'a.txt');
1、 Append(FH); //不擦掉原来的，而且要换行
2、 Rewrite(FH); //擦掉原来的
3、 WriteLn(FH,'写一行');