procedure TForm1.Button1Click(Sender: TObject);
var
  frase: string;
begin
  frase := 'Gosto muito de Delphi e Java';

  // vamos verificar se a string termina com "Java"
  if AnsiEndsStr('Java', frase) then
    ShowMessage('A frase termina com a substring indicada')
  else
    ShowMessage('A frase NÃO termina com a substring indicada')
end;

#include <stdio.h>
#include <stdlib.h>

int main(int argc, char *argv[])
{
  char texto[] = "Gosto muito de C e C++";
  char numeros[] = "1234567890";

  char *pos_atual = strpbrk(texto, numeros);

  if(pos_atual != NULL){
    puts("A string contem digitos");
  }
  else{
    puts("A string NAO contem digitos");
  }

  system("pause");
  return 0;
}

<script type="text/javascript">
<!--
  function adicionarConteudo(){
    var texto = "<br>Mais uma linha.";
    $("#parag").append(texto);
  }
//-->
</script>

    
int tolower(int c);

 
#include <stdio.h>
#include <stdlib.h>
 
void strtolower(char *string){
  while(*string){
    *string = tolower(*string);
    string++;
  }
}
 
int main(int argc, char *argv[])
{
  char frase[] = "PROGRAMANDO EM C";
  strtolower(frase);
   
  printf("%s\n\n", frase);
   
  system("PAUSE");  
  return 0;
}