全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:943
推到 Plurk!
推到 Facebook!

請問TXT存檔問題!!

答題得分者是:Stallion
se0528
一般會員


發表:13
回覆:22
積分:7
註冊:2005-05-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-05-29 03:42:18 IP:163.28.xxx.xxx 未訂閱
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TStringList *sl=new TStringList();
for (int y=0;y<=2;y  )
  {
  for (int x=0;x<=2;x  )
    {
    sl->Add(StringGrid1->Cells[x][y]);
    }
  }
sl->SaveToFile("文字檔.txt");
delete sl;
}
1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 這是我參考前面的文章所寫出的程式,上方陣列是我希望存的資料,下方是我存到TXT檔的結果,但是我無法將同一列的數值存在同一列中,並且使用逗號或空白鍵區隔,請問各位要再加什麼程式碼,可以達到我的要求,感謝!!
Stallion
版主


發表:52
回覆:1600
積分:1995
註冊:2004-09-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-05-29 05:13:32 IP:211.22.xxx.xxx 未訂閱
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 TStringList *sl=new TStringList();
 AnsiString TempString;
 for (int y=0;y<=2;y  )
 {
TempString = StringGrid1->Cells[0][y]   ","   StringGrid1->Cells[1][y]   ","   StringGrid1->Cells[2][y]; //不知道你有多少ROW所以直接以索引代替
  sl->Add(TempString);
 }
 sl->SaveToFile("文字檔.txt");
 delete sl;
}
 
----------------------------------------------- Creation is the fundation of promotion. 發表人 - stallion 於 2005/05/29 05:15:15
se0528
一般會員


發表:13
回覆:22
積分:7
註冊:2005-05-04

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-05-29 10:17:07 IP:218.170.xxx.xxx 未訂閱
謝謝Stallion大大,我可以再請問一個小問題嗎?我如何可以將StringGrid1的內容像使用Excel一般,可以框選一個範圍,然後可以做複製、貼上的動作,謝謝!!
系統時間:2024-05-19 20:35:25
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!