有一變數如x, 如何設定 x 如等於 bb,cc,dd,ee,ff,gg 均會傳回 true

引言: 有一變數如x, 如何設定 x 如等於 bb,cc,dd,ee,ff,gg 均會傳回 true

我的作法是把bb,cc,dd,ee,ff,gg都存到一個TStringList的變數當中，取得TStringList.IndexOf(x)的值是否大於等於0就可以判斷了~~

你好, 我是 delphi 初哥, 可否寫出有關程式碼

var l:TStringlist; xx:string; begin xx:='aa'; l:=TStringlist.create; try l.DelimitedText:='bb,cc,dd,ee,ff,gg'; if l.IndexOf(xx) >=0 then showmessage('yes'); finally l.free; end; end;

引言: 有一變數如x, 如何設定 x 如等於 bb,cc,dd,ee,ff,gg 均會傳回 true

If pos(','＋x＋',',',bb,cc,dd,ee,ff,gg,' ) > 0 Then // 前後加','是以防萬一
  showmessage('True')
Else
  showmessage('False') ;