下面代码有什么问题啊,刚点击没问题,为何再点击出现异常啊? procedure TForm1.Button1Click(Sender: TObject); Var MyTextFile:TextFile; MyFile:string; begin MyFile:='User.txt'; if not FileExists(MyFile) then AssignFile(MyTextFile, MyFile); ReWrite(MyTextFile); try Writeln(MyTextFile); Writeln(MyTextFile); Writeln(MyTextFile); Writeln(MyTextFile); Writeln(MyTextFile,'你好'); finally CloseFile(MyTextFile); end; end;
if not FileExists(MyFile) then AssignFile(MyTextFile, MyFile); 第二遍点击自然就不会assignfile了,可是后面还ReWrite(MyTextFile);当然会出错。 可以改为if FileExists(MyFile) then exit;
var
MyTextFile: TextFile;
MyFile: string = 'test.txt';
begin
if FileExists(MyFile) then
MessageBox(handle, PChar('所要创建的文件' + MyFile + '已存在!'), '提示', mb_iconWarning + mb_Ok)
else
begin
AssignFile(MyTextFile, MyFile);
ReWrite(MyTextFile);
write(MyTextFile, meotxt.text); //meotxt为TMemo控件
MessageBox(handle, PChar('文件' + MyFile + '创建成功!'), '提示', mb_iconWarning + mb_Ok);
CloseFile(MyTextFile);
end;
end;
1.声明: f :TextFile;
2.创建: AssignFile(f,'文件名');
ReWrite(f); //如有同名文件会覆盖
3.写数据: Writeln(f,'...写入的字符串...');
4.关闭文件: CloseFile(f);
procedure TForm1.Button1Click(Sender: TObject);
Var
MyTextFile:TextFile;
MyFile:string;
begin
MyFile:='User.txt';
if not FileExists(MyFile) then
AssignFile(MyTextFile, MyFile);
ReWrite(MyTextFile);
try
Writeln(MyTextFile);
Writeln(MyTextFile);
Writeln(MyTextFile);
Writeln(MyTextFile);
Writeln(MyTextFile,'你好');
finally
CloseFile(MyTextFile);
end;
end;
AssignFile(MyTextFile, MyFile);
第二遍点击自然就不会assignfile了,可是后面还ReWrite(MyTextFile);当然会出错。
可以改为if FileExists(MyFile) then exit;