如何將StrtingGrid上的資料，按照其排列方式存成*.txt檔？

發文回覆瀏覽次數：801

推到 Plurk!

推到 Facebook!

如何將StrtingGrid上的資料，按照其排列方式存成*.txt檔？

尚未結案

kikikaka
一般會員

發表：32
回覆：28
積分：12
註冊：2003-09-26

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-03-17 23:37:26

IP:61.62.xxx.xxx 未訂閱

請問各位高手，若我在StringGrid上有一筆300*400的資料，想將他存成文字檔，並且按照300*400的排列方式，該怎麼做呢？謝謝大家!! 發表人 - taishyang 於 2004/03/17 23:53:41

RaynorPao
版主

發表：139
回覆：3622
積分：7025
註冊：2002-08-12

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-03-18 01:11:40

IP:61.221.xxx.xxx 未訂閱

引言: 請問各位高手，若我在StringGrid上有一筆300*400的資料，想將他存成文字檔，並且按照300*400的排列方式，該怎麼做呢？謝謝大家!!

kikikaka 你好:
(1)請參考以下的範例程式碼
>>>> sz="">Cells[j][i]: StringGrid1->Cells[j][i]+",";
         Application->ProcessMessages();
      }
      sl->Add(sz);
   }
   sl->SaveToFile("test.txt");
   delete sl;
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   // 讀取檔案
   StringGrid2->ColCount=iCol;
   StringGrid2->RowCount=iRow;
   TStringList *sl1=new TStringList;
   sl1->LoadFromFile("test.txt");
   for(int i=0; iCount; i++)
   {
      TStringList *sl2=new TStringList;
      sl2->CommaText=sl1->Strings[i];
      for(int j=0; jCount; j++)
      {
         StringGrid2->Cells[j][i]=sl2->Strings[j];
         Application->ProcessMessages();
      }
      delete sl2;
   }
   delete sl1;
}
(2)請再依照自己的需求，自行修改
    < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

系統時間：2024-07-01 8:42:18

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！