如何将信息始终写入文本的第一行？

Question

我想每次往指定文本文件写入时，都将内容写在文本文件的第一行，而不是以追加的方式写入。

Answer 1

很简单啊,在你的编辑控件(比如edit1)里,的onkeypress事件里输入:
edit1.text := edit1.text + #13;

Answer 2

to superqing(淫贱能移):
   拜托,看好题目。

Answer 3

to superqing(淫贱能移):
    是操作文本文件......晕

Answer 4

var sl: tstringlist;
...
sl.loadfromfile('test.txt');
sl.insert(0,'input type');
sl.savetofile('test.txt');

Answer 5

var sl: tstringlist;
...
sl.loadfromfile('test.txt');
sl.text:='you String'+#13+sl.text;
sl.savetofile('test.txt');