下面是在C盘根目录下创建文本文件的例子，你自己体会一下吧：
至于你说的那个reset是对于已经存在的文件而言的，是指打开
已经存在的文件（通过关联文件变量的方式打开）并将文件指针
定位到文件的起始处：
procedure TForm1.Button1Click(Sender :TObject);
var
f : textFile; //定义文件变量
begin
//将文件变量和指定文件关联，意思就是说
//电脑一看到f就知道是指的c:/test1.txt
AssignFile(f,'c:/Test1.txt');
//因为c:/test1.txt不存在，所以用ReWritte来创建这个文件
ReWrite(f);
//以下数行对创建后的文件写内容
Write(f,'我的位置在最高处。年轻人应该从头学起，担当最基层职务。');
Write(f,'这是件好事。怀化有许多大企业家在创业之初都是从扫帚开始。');
Write(f,'他们与扫帚结伴，以清扫办公室度过了企业生涯的最初时光');
Write(f,'。我注意到，现在的办公室都配备了工友，这使我们的年轻人');
Write(f,'不幸丢掉了这个有益的企业教育的组成部分。不过，如果哪一');
Write(f,'天早晨清扫工碰巧没来，某个具有未来合伙人气质的青年就应');
Write(f,'毫不犹豫地试着拿起扫帚。有一天，一位溺爱孩子的、时髦的');
Write(f,'怀化母亲问一位男青年，是否见过像她的女儿桃花那样的');
Write(f,'年轻女郎如此潇洒地在进行打扫。男青年说从未见过，那位母');
Write(f,'亲高兴得乐不可支。但男青年顿了顿又说：“我想看到的是她');
Write(f,'能在室外进行打扫。”如果有必要，新来者在办公室外进行打');
Write(f,'扫并没有损失。我本人就曾是打扫人之一。假如你们都得到了');
Write(f,'聘用，而且都有了良好的开端，那我对你们的忠告是：“要胸');
Write(f,'怀大志”。我住长江头，君住长江尾。日日思君不见君，共饮长');
Write(f,'江水。此水几时休，此恨何时已。只愿君心似我心，定不负相思意！');
//关闭这个文件变量，这样才真正将内容保存到文件中
CloseFile(f);
end;
