掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TStringlistを使って文字列をTSTringGridに表示 (ID:43413)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
//試しにやってみました。 //こんな感じに、Listの文字列を分解して、 //Stringgridに表示させるのでしょうか？ //edit1,listbox1,striggrid1を使ってます。 var i,i1,i2:integer; s,s1:string; begin i1 := 0; i2 := 0; while stringgrid1.RowCount > i1 do begin stringgrid1.Cols[i1].Clear; inc(i1); end; i1 := 0; while listbox1.Items.Count > i1 do begin s1 := listbox1.items[i1]; i := ansipos(edit1.Text,s1[1]+ s1[2]); if i = 0 then begin {showmessage(IntToStr(i1) + '行目には' + char(13) +'見つかりませんでした')} end else begin inc(i2); s := listbox1.Items[i1]; 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; inc(i1); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.