如何在TString中找到我需要的一个字符串？ 我把许多字符串放在TString中，我用什么函数可以找到我需要的每个字符串 ？ 谢谢指教！

Tstrings 吧！ 用indexof

您好: 若為TStrings則參考以下範例 FileListBox1.Directory := DirectoryListBox1.Directory; if FileListBox1.Items.IndexOf('AUTOEXEC.BAT') > -1 then begin Color := clYellow; Label1.Caption := 'You are in the root directory!'; end; 若為String則參考以下 function Pos(Substr: string; S: string): Integer; 若傳回為0則表示找不到 若傳回不為0則表示字串所存在位置

 
implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
var
  Index: Integer;
  List: TStringList;
begin
  //非排序狀況
  if FileExists(A_TEXT_FILENAME) then
  begin
    List := TStringList.Create;
    try
      List.LoadFromFile(A_TEXT_FILENAME);
      Index := List.Add(A_KEY);
      if Index > -1 then
              ShowMessage(List[Index])
      else ShowMessage(A_KEY   ' not found');
    finally
      FreeAndNil(List);
    end;
  end;
end;    procedure TForm1.Button2Click(Sender: TObject);
var
  Index: Integer;
  List: TStringList;
begin
  //排序狀況
  if FileExists(A_TEXT_FILENAME) then
  begin
    List := TStringList.Create;
    try
      List.Duplicates := dupIgnore;
      List.Sorted := True;
      List.LoadFromFile(A_TEXT_FILENAME);
      if List.Find(AKEY, Index) then
        ShowMessage(List[Index])
      else ShowMessage(A_KEY   ' not found');
    finally
      FreeAndNil(List);
    end;
  end;
end;    end.