//StringGridの内容をCSVファイルに書き出します

//StringGridにランダムデータを書き込む
procedure TForm1.Button1Click(Sender: TObject);
var
   c,r:integer;
begin
   with StringGrid1 do
   begin
   for r:=0 to RowCount-1 do
      for c:=0 to ColCount-1 do cells[c,r]:=IntToStr(random(100));
   end;
end;

//ファイルに書き出し
procedure TForm1.Button2Click(Sender: TObject);
var
   i:integer;
   f:TextFile;
begin
   assignFile(f,'c:\test.csv');
   rewrite(f);
   try
      for i:=0 to StringGrid1.rowCount-1 do
         writeln(f,StringGrid1.Rows[i].commatext);
   finally
      closeFile(f);
   end;
end;
☆☆☆　　かわいいコードにゃ旅をさせよう　いざサンプル蔵へ!!　☆☆☆
                                 97/11/11(火) 22:17 凛(MXB01744)

Original document by 凛              氏 ID:(MXB01744)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。