如何判断一个值在 设定的ini 范围内？(100)

ini的设置 （Floot1 里面的值分别是包厢的编号）[Sysfloot]Floot1=K01,K11,B03,C04,P05Floot2=C01,K02,K13,K04,M15,L11,N50,K108,A109在数据库中查询出了 B04，B05 C12 。。。等。 如何判断B04，在 Floot1 而 B05 不再Floot1里面？

帮看看

........

建一个专一的ini文件Sysfloot,procedure TForm1.Button2Click(Sender: TObject);var s,f:string; slt:tstringlist;begin GetDir(0,s); f:=s+'/conf.ini' ; slt:=tstringlist.Create; slt.LoadFromFile(f); if slt.IndexOf('B04')<>0 then showmessage ('存在') else showmessage('不存在');end;

uses IniFiles;{$R *.dfm}function CheckValueAtIniFile(const AFileName, ASection, AKey, ACheckValue: string): Boolean;var IniFile: TIniFile; Value: string;begin Result := False; if FileExists(AFileName) then begin IniFile := TIniFile.Create(AFileName); try// if IniFile.SectionExists(ASection) then Value := IniFile.ReadString(ASection, AKey, ''); Result := (Pos(ACheckValue + ',', Value) > 0); finally IniFile.Free; end; end;end;

谢谢