Delphi7文件操作常用函数
1. AssignFile、Erase AssignFile procedure AssignFile(var F; FileName: string);:给文件变量连接一个外部文件名。这里需要注意的是AssignFile不能用在已打开的文件上。 procedure TForm1 .Button1Click(Sender: TObject); var text : String; F1 : TextFile; begin Try AssignFile(F1,Trim(Edit1 .Text)); //变量与外部文件名关联 Append(F1); text := Memo1 .Text; write(f1,text); CloseFile(f1); //终止变量与外部文件的关联 Except ShowMessage( '写入失败'); End; end; Erase procedure Erase(var F);:删除一个外部文件。 AssignFile(MyFile, 'd:\dd.txt'); Erase(MyFile); //必须关闭一个文件后才可以删除它 2.ChDir procedure ChDir(const S: string); overload; procedure ChDir(P: PChar); overload; 将当前目录修改为指定目录。其中S