LRESULT SendMessage(          
  HWND hWnd,
  UINT Msg,
  WPARAM wParam,
  LPARAM lParam
);

// Protótipo
{$EXTERNALSYM SendMessage}
function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; 
  lParam: LPARAM): LRESULT; stdcall;

// Implementação
function SendMessage; external user32 name 'SendMessageW';

procedure TForm1.Button1Click(Sender: TObject);
var
  texto: String;
begin
  // conteúdo a ser definido para a caixa de texto
  texto := 'Veja isso';

  // vamos definir o conteúdo usando a função SendMessage
  // fornecendo a mensagem WM_SETTEXT
  SendMessage(Edit1.Handle, WM_SETTEXT, 0, Integer(PChar(texto)));
end;

# função principal do programa
def main():
  valor1 = 343
  valor2 = 3
 
  # exibirá 000342
  print("O valor é %06d" % (valor1))
 
  # exibirá 0342 e 00000003
  print("Os valor sao %04d e %08d" % (valor1, valor2))
  
if __name__== "__main__":
  main()

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

int main(int argc, char *argv[]){
  char frase1[] = "Gosto de PHP";
  char frase2[50]; // pode receber até 49 caracteres

  // copia a primeira frase para a segunda
  frase2 = frase1;

  // exibe o resultado
  printf(frase2);

  puts("\n\n");
  system("PAUSE");
  return 0;
}

incompatible types in assignment 
of `char[13]` to `char[50]` 

char *strcpy(char *destino, const char *origem);

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

int main(int argc, char *argv[]){
  char frase1[] = "Gosto de PHP";
  char frase2[50]; // pode receber até 50 caracteres

  // copia a primeira frase para a segunda
  strcpy(frase2, frase1);

  // exibe o resultado
  printf(frase2);

  puts("\n\n");
  system("PAUSE");
  return 0;
}

index(substring[, start[, end]])

def main():
  frase = "Gosto de Python e JavaScript"

  try:
    indice = frase.index("Python")
  except ValueError:
    print("A palavra não foi encontrada")
  else:
    print("A palavra foi encontrada no índice", indice)

if __name__== "__main__":
  main()