Question

我用Delphi7写了一段新建txt与写入txt的代码，但是出现了I/O 32错误

procedure TForm2.Button1Click(Sender: TObject);
var
txt : Textfile;
Filename: string;
path : string;
begin
Filename := ExtractFilePath(Application.ExeName)+Edit1.Text+'.usnf'; //Set a User Name File(.usnf)
path := ExtractFilePath(Application.ExeName); //Set a User Name File adress to Load
FileCreate(Filename);
if Trim(Edit2.Text) = '' then
showmessage('You inputed the space!!')
Else
AssignFile(txt, path+'\'+Trim(Edit1.Text)+'.usnf');
Rewrite(txt);
Write(txt, Trim(Edit2.Text));
CloseFile(txt);
end;

这样创建一个(Edit1.Text).usnf文件之后，文件始终处于被程序打开的状态，不能被编辑和删除。
如果我想要在创建一个文件之后，马上在里面WriteLn一个Edit2.Text，该怎么实现？

Answer 1

那是因为你创建文件后，没有关闭文件，所以造成这个现象。定义一个变量hFile: THANDLE，然后在创建文件的时候这样处理：
.......
hFile := FileCreate(Filename);
CloseHandle(hfile);
.......

Answer 2

var
F:TextFile;
begin
if Trim(Edit2.Text) = '' then
showmessage('You inputed the space!!')
else
begin
AssignFile(F,'文件.txt');
if not FileExists('文件.txt') then
Rewrite(F)
else
Append(F);
Writeln(F,Edit2.Text);
CloseFile(F);
end;
end;