请问这段向文本文件写内容的代码有什么问题？

sandrafei 2004-10-26 11:51:29

AnsiString filename;
SetCurrentDir(ExtractFilePath(Application->ExeName));
if(!DirectoryExists("电子结算"))
CreateDir("电子结算");
filename=ExtractFilePath(Application->ExeName)+"电子结算\\"+Now().FormatString('yyyy') +".txt";
FileCreate(filename);
int filehandle=FileOpen(filename,fmOpenWrite);
FileSeek(filehandle,0,1);
FileWrite(filehandle,"86",2);
FileClose(filehandle);
最终文件是创建了，但就是86写不进去。如果删除此句FileCreate(filename);对已经存在的文件再执行修改后的程序，就可以写进去了，请问这是怎么回事，谢谢！

...全文

98 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

铖邑 2004-11-08

打赏
举报

filehandle=-1

hailin10 2004-11-08

打赏
举报

搞了半天也通不过，帮楼主顶，顺便做个记号。

thp 2004-11-08

打赏
举报

顶

happyct 2004-11-08

打赏
举报

int filehandle;

happyct 2004-11-08

打赏
举报

FileCreate的时候，句柄已经打开了，可以这样修改
AnsiString filename;
SetCurrentDir(ExtractFilePath(Application->ExeName));
if(!DirectoryExists("电子结算"))
CreateDir("电子结算");
filename=ExtractFilePath(Application->ExeName)+"电子结算\\"+Now().FormatString('yyyy') +".txt";
int filehandle
if(!FileExists(filename))
filehandle = FileCreate(filename);
else
filehandle=FileOpen(filename,fmOpenWrite);
FileSeek(filehandle,0,1);
FileWrite(filehandle,"86",2);
FileClose(filehandle);