怎么判断一个字符串变量是否存在?MEMO里

如何判断一个字符串变量是否存在?MEMO里
var
s:string;



s 是个字符串变量,就是不断变换的值,

这里有个 listbox 控件,

S每变换一次会把S的值ADD到listbox 里

在把s的值ADD到listbox里时,判断listbox里是否有S这个值,就是不要重复.


请问这样该如何实现?

[解决办法]
哈哈，兄弟我又来了，给你一段代码供你参考

Delphi(Pascal) code

procedure TForm1.AddToListBox(const AValue: string);var  i: Integer;  bHave: Boolean;begin  bHave := False;  for i := 0 to lst1.Items.Count - 1 do  begin    if AValue = lst1.Items[i] then    begin      bHave := True;      Break;    end;  end;  if not bHave then    lst1.Items.Add(AValue);end;
[解决办法]
if ListBox1.Items.IndexOf(s) = -1 then
 ListBox1.Items.Add(s);
[解决办法]
Delphi(Pascal) code
procedure TForm1.AddToListBox(const AValue: string);begin   if ListBox1.Items.IndexOf(AValue) <> -1 then Exit;   ListBox1.Items.Add(AValue);end;