delphi如何对文本文件进行读写操作

[yugiant]

本人用FileCreate(FileName)创建了一个文本文件，然后用
AssignFile(F,FileName);
Append(F);
write(F,'aaa');运行出错
说EInOutError 'I/O Error 32'意思是sharing violation
看来是文件写权限不够，但文件是刚建立的啊
遇到这样的问题如何解决，望指教，谢谢

[hongqi162]

var
H:THandle;
begin
H:=Filecreate(FileName);
closeHandle(H);
..............
end;

[jadeluo]

FileCreate()函数和AssignFile()、Append()函数是属于两个系列的文件操作函数，AssignFile()、Append()函数是从早期的Pascal中继承来的。

如果你想使用AssignFile()、Append()函数，则应该在Append或者Reset之前先将之前打开的文件关闭掉。从你所说的情况来看，应该用FileClose函数来关闭FileCreate创建的文件。

[47522341]

下面是我正在使用的一个写出错日志的函数；很久没改过了；不过还能用；^_^；
你看看。
procedure JaxWriteExceptionLog(AProcedure,AMemo: string);
const
FIELD_WIDTH = 20;
var
FileName: string;
OutFile:TextFile;
begin
FileName := ExtractFileDir(ParamStr(0)) + '\'+FormatDatetime('YYYYMMDD',now)+ 'Exception.Log';
AssignFile(OutFile, Filename);
try
if FileExists(Filename) then
begin
Append(OutFile);
Writeln(OutFile);
end
else
Rewrite(OutFile);
//开始写异常明细
Writeln(OutFile, '===== ', ExtractFileName(ParamStr(0)), ',', DateTimeToStr(Now), ' =====');
Writeln(OutFile,AProcedure:FIELD_WIDTH,':',AMemo);
finally
CloseFile(OutFile);
end;
end;