String Testing functions

 Top 

Example code : Contains, StartsWith, EndsWith, EqualsText

procedure TForm1.W3Button14Click(Sender: TObject);

var haystack : String;

 

begin

haystack := 'The cat sat on the mat';

  // Note that AnsiContainsStr is case sensitive

  if haystack.Contains('THE')

 

  then WriteLn('''THE'' was found')

  else WriteLn('''THE'' was not found');

 

  if haystack.Contains('the')

  then WriteLn('''the'' was found')

  else WriteLn('''the'' was not found');

 

// Note that AnsiStartsStr is case sensitive

  if haystack.StartsWith('THE cat')

  then WriteLn('''THE cat'' starts the sentence')

  else WriteLn('''THE cat'' does not start the sentence');

 

  if haystack.StartsWith('The cat')

  then WriteLn('''The cat'' starts the sentence')

  else WriteLn('''The cat'' does not start the sentence');

 

  // Note that AnsiEndsStr is case sensitive

  if haystack.EndsWith('the MAT')

  then WriteLn('''the MAT'' ends the sentence')

  else WriteLn('''the MAT'' does not end the sentence');

 

  if haystack.EndsWith('the mat')

  then WriteLn('''the mat'' ends the sentence')

  else WriteLn('''the mat'' does not end the sentence');

 

haystack := "Atletico;Cruzeiro;Flamengo;Corinthians,Gremio";

 

WriteLn( haystack.EqualsText('Flamengo') );  // false

WriteLn( haystack.EqualsText('Atletico;Cruzeiro;Flamengo;Corinthians,Gremio') ); // true

end;

'THE' was not found

'the' was found

'THE cat' does not start the sentence

'The cat' starts the sentence

'the MAT' does not end the sentence

'the mat' ends the sentence

false

true 

--------

 

mytoggle_plus1JS output

function W3Button14Click(Self, Sender$11) {

      var haystack = "";

      haystack = "The cat sat on the mat";

      if (((haystack).indexOf("THE")>=0)) {

         WriteLn("'THE' was found");

      } else {

         WriteLn("'THE' was not found");

      }

      if (((haystack).indexOf("the")>=0)) {

         WriteLn("'the' was found");

      } else {

         WriteLn("'the' was not found");

      }

      if (haystack.substr(0,7)=="THE cat") {

         WriteLn("'THE cat' starts the sentence");

      } else {

         WriteLn("'THE cat' does not start the sentence");

      }

      if (haystack.substr(0,7)=="The cat") {

         WriteLn("'The cat' starts the sentence");

      } else {

         WriteLn("'The cat' does not start the sentence");

      }

      if (StrEndsWith(haystack,"the MAT")) {

         WriteLn("'the MAT' ends the sentence");

      } else {

         WriteLn("'the MAT' does not end the sentence");

      }

      if (StrEndsWith(haystack,"the mat")) {

         WriteLn("'the mat' ends the sentence");

      } else {

         WriteLn("'the mat' does not end the sentence");

      }

      haystack = "Atletico;Cruzeiro;Flamengo;Corinthians,Gremio";

      WriteLn(SameText(haystack,"Flamengo"));

      WriteLn(SameText(haystack,"Atletico;Cruzeiro;Flamengo;Corinthians,Gremio"));

   }