请问怎样检查一个stringlist里有没有一个值，如果有delete

Question

请问怎样检查一个stringlist里有没有一个值，如果有，怎么删除呢delete？
谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  strlst:TStringlist;
  i:integer;
  str:string;
begin
  strlst:=TStringlist.Create;
  str:='7';
  for i:=0 to 10 do
    strlst.Add(inttostr(i));
  for i:=0 to strlst.Count-1 do
  begin
    if strlst.Strings[i]=str then
    begin
      strlst.Delete(i);
      break;
    end;
  end;
  showmessage(strlst.Text);
end;

Answer 2

i := strTemp.Indexof('aaa');
if i >= 0 then strTemp.Delete(i);

Answer 3

i := strTemp.Indexof('aaa');
while i >= 0 do
begin
  strTemp.Delete(i);
  i := strTemp.Indexof('aaa');
end;