写文件的问题 for C++ Builder！(100分)

哪位朋友能帮我写一个写文件的c++函数！
要求:将两个数据写入文本文件内！

WriteFile(int Count,char Buffer[256]);
{
.......
}

str = sprintf("%d, %s",count,buffer);
writeln(fp, str);

;char szFileName[MAXFILE+4];
int iFileHandle;
int iLength;
if (SaveDialog1->Execute())
{
if (FileExists(SaveDialog1->FileName))
{
fnsplit(SaveDialog1->FileName.c_str(), 0, 0, szFileName, 0);
strcat(szFileName, ".BAK");
RenameFile(SaveDialog1->FileName, szFileName);
}
iFileHandle = FileCreate(SaveDialog1->FileName);
// Write out the number of rows and columns in the grid.
FileWrite(iFileHandle, (char*)&(StringGrid1->ColCount), sizeof(StringGrid1->ColCount));
FileWrite(iFileHandle, (char*)&(StringGrid1->RowCount), sizeof(StringGrid1->RowCount));
for (int x=0;x<StringGrid1->ColCount;x++)
{
for (int y=0;y<StringGrid1->RowCount;y++)
{
// Write out the length of each string, followed by the string itself.
iLength = StringGrid1->Cells[x][y].Length();
FileWrite(iFileHandle, (char*)&iLength, sizeof(iLength));
FileWrite(iFileHandle, StringGrid1->Cells[x][y].c_str(), StringGrid1->Cells[x][y].Length());
}
}
FileClose(iFileHandle);
}

int fh=_lopen("文件",OF_READWRITE)
_lwrite(fh,buf,count)
_lclose(fh)

TStringList* sl=new TStringList();
sl->Add("数据1");
sl->Add("数据2");
sl->SaveToFile("Data.txt);
delete sl;

多人接受答案了。