一个例题 求解

Question

创建一个新文件，先检测文件是不是已经存在了，如果存在就先删除，现重新创建。procedure tform1.button1click(sender:tobject);
var
dirname,fullname,ranstr:string;
filesavedto:textfile;
begin
label2.caption:=' ';
randomize;
ranstr:=' ';
dirname:=directorybox1.directory;if dirname[length(dirname)]<>'\' then
   dirname:=dirname+'\';
fullname:=dirname+edit1.text;
if fileexists(fullname) then 
   deletefile(fullname);
assignfile(filesavedto,fullname);      //这个assignfile是不是指定fullname文件到文件变量filesavedto呢？if fileexists(fullname) then           //前面删除了文件了，这里检测如果还存在
   reset(filesavedto) 
                                      //这里是什么意思呢？是实现什么操作呢？
else
   rewrite(filesavedto);              //这里否则 rewrite是实现什么操作呢？
                           
writeln(filesavedto,ranname);        //这个是不是将ranstr产生的随机数据写入到filesavedto指的fullname的文件中吧
closefile(filesavedto);
label2.caption:='文件创建完毕！';
filelistbox1.update;
end.

Answer 1

　　2. AssignFile
　　功能说明：与指定的文件建立连接。
　　参考实例：
　　var
　　 　F: TextFile; // 声明文本文件类型变量
　　begin
　　 　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　end;
    15.Reset
　　功能说明：以只读方式打开文件。
　　参考实例：
　　var
　　 　F: TextFile; // 声明文本文件类型变量
　　begin
　　 　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　 　Reset(F); // 打开文件
　　end;
　　16.Rewrite
　　功能说明：以可写方式打开文件。如果文件不存在，将会自动创建。使用该函数，将会覆盖文件中的所有内容。
　　参考实例：
　　var
　　 　F: TextFile; // 声明文本文件类型变量
　　begin
　　 　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　 　Rewrite(F); // 打开文件。如果文件不存在，将会在C盘中创建MyFile.txt文件。如果文件存在，将会覆盖MyFile.txt中的所有内容。
　　end;    19.Writeln
　　功能说明：写入一行文本。
　　参考实例：
　　var
　　 　S: String;
　　 　F: TextFile;
　　begin
　　 　S := 'This is a book.';
　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
　　 　Rewrite(F); // 创建新文件
　　 　Writeln(F, S); // 将S变量中的内容写入文本中。
　　end;