CSVを特定の行だけStringGridに表示するには？ (ID:25334)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

初めて質問させていただきます。
次のデータから例えば'SIRO'の行だけを取り出し、StringGridに表示したくて
サンプルをまねて作ってみたのですが、'SIRO'でない行が空白で残ります。
'SIRO'でない時はfor〜の中で Rows[i]の[i]を1減らせば良いかな
とも思いましたがうまく行きません。
何方かご指導よろしくおねがいします。

------------------------
IRO,
KURO,1,6,7,
SIRO,2,A,5,
SIRO,3,B,10.9,
KIIRO,4,1,6,
SIRO,5,6,7,
-------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  SL1, SL2 : TStringList;
  MaxCol, i : Integer;
begin
  if OpenDialog1.Execute then
    begin
      SL1 := TStringList.Create;
      SL2 := TStringList.Create;
      try
        SL1.LoadFromFile( OpenDialog1.FileName );
        with StringGrid1 do
          begin
            RowCount := SL1.Count;
            MaxCol := 0;
            for i := 1 to RowCount - 1 do
        begin
      SL2.CommaText := SL1.Strings[i];
       if MaxCol < SL2.Count then MaxCol := SL2.Count;

if SL2[0] = 'SIRO' Then      //  'SIRO'だけ抜き出し
           begin
            SL2.Delete(0);   //最初の項目を削除
            Rows[i].Assign(SL2);
           end ;
         end;
       end;
      finally
        SL2.Free;
        SL1.Free;
      end;
    end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る