掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringGrid内の文字列検索 (ID:46508)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すいません、ansipos_strgrid関数に問題がありましたので修正します。 不要な変数の一部を消し忘れていましたので、修正しました。 function ansipos_strgrid(g:TStringGrid;s,set_str:string;st_ans:TStringList):integer; var st,st1,gety:TStringList; i,i1,i2:integer; begin st :=TStringList.Create; st.Clear; st1 :=TStringList.Create; st1.Clear; gety :=TStringList.Create; gety.Clear; i2 := 0; for i := 0 to g.ColCount -1 do begin gety.Clear; st.Text:= g.Cols[i].Text; i1 := count_if_str(st,gety,s,set_str,i); st1.Text:= st1.Text + gety.Text; i2 := i2 + i1; end; ansipos_strgrid:= i2; st_ans.text := st1.text; st.Free; gety.Free; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.