一个关于FileWrite的问题!

zsloyes 2003-05-20 11:02:17

我写了一个向一个文件写一个字符串的函数,但发现字符串写进去后无法保存,请问是什么原因?
void WriteToFile(AnsiString FileName,AnsiString WriteContent)
{
int iFileHandle;
if (FileExists(FileName))
{
iFileHandle = FileOpen(FileName,fmOpenReadWrite);
FileWrite(iFileHandle,WriteContent.c_str(),WriteContent.Length());
}
else
{
iFileHandle = FileCreate(FileName);
FileWrite(iFileHandle,WriteContent.c_str(),WriteContent.Length());
}
FileClose(iFileHandle);
}

...全文

72 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

KingOf007 2003-05-20

打赏
举报

sorry,楼上一帖写错地方了

KingOf007 2003-05-20

打赏
举报

然后,
THandler * ButtonH;

void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
TControl* o;
o = dynamic_cast<TControl*>(Sender);
ButtonH->Attach(o);
ButtonH->ControlMouseDown(Sender,Button,Shift,X+1,Y+1);
}

xuv2002 2003-05-20

打赏
举报

改改
void WriteToFile(AnsiString FileName,AnsiString WriteContent)
{
int iFileHandle;
if (FileExists(FileName))
{
iFileHandle = FileOpen(FileName,fmOpenReadWrite);
if(iFileHandle==-1) return; //判斷文件句柄是否可用
FileSeek(iFileHandle,0,2);//跳至文件末尾進行添加
FileWrite(iFileHandle,WriteContent.c_str(),WriteContent.Length());
}
else
{
iFileHandle = FileCreate(FileName);
if(iFileHandle==-1) return;//同上
FileWrite(iFileHandle,WriteContent.c_str(),WriteContent.Length());
}
FileClose(iFileHandle);
}

这段脚本简单示例如何使用 FileWrite() 函数

将缓冲区中的内容写入文件中，学习Delphi中FileWrite的使用方法：　　begin 　　 H := FileOpen('d:\ini.txt',fmOpenWrite); 　　 if H -1 then 　　 begin 　　 FileSeek(H,0,2);//将文件指针定位到文件的末尾　　 buffer := '源码素材网是开源源代码下载网站'; 　　 IntToStr(FileWrite(H,buffer^,Length(buffer))); 　　 CloseHandle(H); 　　 Application.MessageBox('写入成功','提示',64); 　　 end 　　 else 　　 Application.MessageBox('写入失败','提示',64); 　　end;

欧母龙PLC例程_本资料仅供学习参考

欧母龙PLC例程源码logging+ filewrite提取方式是百度网盘分享地址

filewrite-jenkins-demo