TStringlistを使って文字列をTSTringGridに表示 (ID:43417)

名前

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

本文

//一応書いてみました
//こういう事ですか？？
procedure TForm1.Button1Click(Sender: TObject);
var
  i,i1,i2,i3:integer;
  s,s1:string;
  setdel: array [0..255] of string;
begin
  i1 := 0;
  i2 := 0;
  for i1:=0 to stringgrid1.RowCount -1 do begin
    //StringGridを初期化する
    stringgrid1.Cols[i1].Clear;
  end;
  i1 := 0;
  for i1 :=0 to listbox1.Items.Count -1 do begin
    //検索対象文字列の取得
    s1 := listbox1.items[i1];
    //検索
    i := ansipos(edit1.Text,s1[1]+ s1[2]);
    if i = 0 then begin
     //もし見つからなければ
     //削除リストに追加
     setdel[i1] := listbox1.Items[i1];
    end else begin
      //もし見つかったならば
      //削除リストには何も入れない
      setdel[i1] := '';
      //StirngGridの列を指定する数値を加算
      inc(i2);
      //見つかったリストの値を取得
      s := listbox1.Items[i1];
      //Grid毎に値を分解して納める
      stringgrid1.Cells[1,i2] := s[1] + s[2];
      stringgrid1.Cells[2,i2] := s[3];
      stringgrid1.Cells[3,i2] :=
      s[4] + s[5] +s[6] + s[7] +s[8] + s[9];
      stringgrid1.Cells[4,i2] := s[10] + s[11];
      stringgrid1.Cells[5,i2] := s[12] + s[13];
    end;
  end;
  //一気に削除
  i3 := 0;
  for i1 := 0 to listbox1.Items.Count -1 do begin
    i3 := listbox1.Items.IndexOf(setdel[i1]);
    if i3 <> -1 then begin
      listbox1.Items.Delete(i3);
    end;
  end;
end;

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

戻る