この発言は
#00044　FuKu            さんの簡単StringGridへのCSVファイルの表示
に対するコメントです





■説明
　TStringList.LoadFromFile を使ったサンプルです。

■サンプルコード
//=====================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  TmpSL1, TmpSL2 : TStringList;
  MaxCol, i : Integer;
begin
  if OpenDialog1.Execute then
    begin
      TmpSL1 := TStringList.Create;
      TmpSL2 := TStringList.Create;
      try
        TmpSL1.LoadFromFile( OpenDialog1.FileName );
        with StringGrid1 do
          begin
            RowCount := TmpSL1.Count;
            MaxCol := 0;
            for i := 0 to RowCount - 1 do
              begin
                TmpSL2.CommaText := TmpSL1.Strings[i];
                if MaxCol < TmpSL2.Count then MaxCol := TmpSL2.Count;
                Rows[i].Assign( TmpSL2 );
              end;
            ColCount := MaxCol;
          end;
      finally
        TmpSL2.Free;
        TmpSL1.Free;
      end;
    end;
end;
//=====================================================================

                                     97/10/20(Mon) 02:23 Fermion [KHF03264]

Original document by Fermion         氏 ID:(KHF03264)

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