我想限制每一個檔案最多只可以有"xxx"行

xxx可以由用者自行決定多少~但不可以多過200

我想知道，如果我的資料庫中有五百行資料~分200行為一檔案~不足100的當一個計算~共可以分三個~

我要怎樣寫，才可以同一時間把五百行~分開三個檔案來儲存??
而檔名是filename0.cvs filename1.cvs filename3.cvs

TStringList* csvemail = new TStringList();
AnsiString semail="";
DMTD->rs_sa_email->Close();
DMTD->rs_sa_email->CommandText="select * from EmailA";
DMTD->rs_sa_email->Open();
while (!DMTD->rs_sa_email->Eof)
{
semail =DMTD->rs_sa_email->FieldByName("fd_Email")->AsString "\r\n";
DMTD->rs_sa_email->Next();
}
csvemail->Add(semail);
sa_email->FileName = edt_e_paht->Text "Email.cvs";
csvemail->SaveToFile(sa_email->FileName);
delete csvemail;
csvemail = NULL;
ShowMessage("File Saved");

上面是我寫save部份時用的code

你原本的code:

while(資料未結束)
{
將資料append到字串semail;
讀下筆資料
}
將字串加到csvemail
指定檔名
呼叫csvemail存檔

改成:

宣告count為0
宣告fileid為0

while(資料未結束)
{
將資料append到字串semail;
讀下筆資料
count ;

if (count == 200) {
呼叫存檔(傳參數semail, 和fileid)
fileid ;
}
}

//將字串加到csvemail //這三個指令都移到另外負責存檔的function
//指定檔名
//呼叫csvemail存檔

if (count % 200 != 0)
呼叫存檔(傳參數semail, 和fileid)