TStringList，的IndexOf,find,IndexOfName 例子

a=wokao
b=in
c=wori
d=ri
e=我靠
f=我插

procedure TForm1.Button1Click(Sender: TObject);
var
  MyList: TStringList;
begin
  MyList := TStringList.Create;
  try
    MyList.LoadFromFile('D:\list测试\Win32\Debug\a啊.txt');

    ShowMessage(IntToStr(MyList.IndexOfName('e')));

    ShowMessage(MyList.ValueFromIndex[MyList.IndexOfName('e')]);

  finally
    MyList.Free;
  end;

end;

 

 

 

 

 

 

2015-08-23----补充：

procedure TForm26.Button1Click(Sender: TObject);
var
  MyList: TStringList;
begin
  MyList := TStringList.Create;
  try
    MyList.Add('a');
    MyList.Add('b');
    MyList.Add('c');
    MyList.Add('abc');
    ShowMessage(IntToStr(MyList.IndexOf('a')));//返回0
    ShowMessage(IntToStr(MyList.IndexOf('ad')));//返回-1
  finally
    MyList.Free;
  end;
end;