Internet Direct (Indy)
Home
PreviousUpNext
FindFirstNotOf Function

Indicates the position where a character not in the search string occurs.

Pascal
function FindFirstNotOf(
    AFind: String; 
    AText: String
): Integer;
Parameters 
Description 
AFind 
Values to be compared.
 
AText 
Data to searched. 

Integer - Position in AText where a character not AFind occurs.

FindFirstNotOf is an Integer function that determines the position in AText that contains a character value other than the characters indicated in AFind. 

When AFind is an empty string, the return value is set to 1. 

When AText is an empty string, the return value is set to 0. 

FindFirstNotOf examines the characters at each position in AText, starting at 1, and continues until the length of AText or until the character occurs in AFind.

  // find non-whitespace character
  iPos := FindFirstNotOf(' ' + TAB + CR + LF, sData);
  if iPos > 0 then
    AStrings.Add(Copy(sData, 1, iPos-1))
  else
    AStrings.Add(sData)
Internet Direct (Indy) version 10.1.5
Copyright © 1993-2006, Chad Z. Hower (aka Kudzu) and the Indy Pit Crew. All rights reserved.
Website http://www.indyproject.org.
Post feedback to the Indy Documentation newsgroup.