View source for TStringList.Find

 '''function Find(S: String; var Index: Integer): Boolean'''

==Description==
Find returns True if the string ''S'' is present in the list. Upon exit, the ''Index'' parameter will contain the position of the string in the list. If the string is not found, the function will return False and ''Index'' will contain the position where the string will be inserted if it is added to the list.<br>
'''Note:''' this function is supposed to be used with '''sorted''' lists.

==Example==
<syntaxhighlight lang="pascal">
var
  s: TStringList;
  i: integer;

begin
  s := File.CreateStringList();
  s.Append('a'); // index 0
  s.Append('b'); // index 1
  s.Append('d'); // index 2
  s.Sort();
  s.Sorted := TRUE;

  s.Find('b',i); 
  // i = 1

  s.Find('c',i);
  // i = 2

  if s.Add('c') = i then
    WriteLn('Indeed added at index '+inttostr(i))
  else
    WriteLn('Oops there''s a bug!');

  s.Free;
end.
</syntaxhighlight>

[[Category:TStringList]]