// define a estrutura Livro
struct Livro{
  char titulo[80];
  int codigo;
  int paginas;
};

// cria dois ponteiros para duas instâncias (recém-alocadas)
// de Livro
Livro *a = (struct Livro*)malloc(sizeof(struct Livro));
Livro *b = (struct Livro*)malloc(sizeof(struct Livro));

a->codigo = 342;
a->paginas = 230;

strcpy(a->titulo, "Programando em Java");

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

// define a estrutura Livro
struct Livro{
  char titulo[80];
  int codigo;
  int paginas;
};

int main(int argc, char *argv[]){
  // cria dois ponteiros para duas instâncias (recém-alocadas)
  // de Livro
  Livro *a = (struct Livro*)malloc(sizeof(struct Livro));
  Livro *b = (struct Livro*)malloc(sizeof(struct Livro));

  // preenche os dados do primeiro Livro
  // Estamos usando ponteiros agora. Para definir o título
  // do livro é preciso usar a função strcpy, já que estamos
  // usando uma cadeia de caracteres
  strcpy(a->titulo, "Programando em Java");
  a->codigo = 342;
  a->paginas = 230;

  // preenche os dados do segundo Livro
  strcpy(b->titulo, "JavaScript - O Guia Prático");
  b->codigo = 675;
  b->paginas = 930;

  // exibe os dados do primeiro livro
  printf("Primeiro Livro\nTitulo: %s\nCodigo: %d\nPaginas: %d\n",
    a->titulo, a->codigo, a->paginas);

  // exibe os dados do segundo livro
  printf("\nSegundo Livro\nTitulo: %s\nCodigo: %d\nPaginas: %d\n",
    b->titulo, b->codigo, b->paginas);

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

# função principal do programa
def main():
  # uma frase
  frase = "Gosto de Python"
  # vamos obter o comprimento da frase
  tam = len(frase)
  # e mostramos o resultado
  print("A frase contém", tam, "letras")
 
if __name__== "__main__":
  main()

procedure TForm3.Button3Click(Sender: TObject);
begin
  // vamos ativar o client dataset
  ClientDataSet1.Active := True;

  // vamos testar se o client dataset foi mesmo ativado
  if ClientDataSet1.Active then
    ShowMessage('O ClientDataSet está ativo')
  else
    ShowMessage('O ClientDataSet  NÃO está ativo')
end;

// Este exemplo mostra como contar as palavras
// de uma string

import java.util.*;

public class Estudos{
  public static void main(String[] args){
    String frase = "Programar em Java é bom demais";
    
    StringTokenizer parser = new StringTokenizer(frase);
    int cont = parser.countTokens();
    
    System.out.println("A frase contém " + 
        cont + " palavras");
    
    System.exit(0);
  }
}  

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
  tamanho: Integer;
begin
  // vamos obter a quantidade de caracteres na caixa de texto
  tamanho := SendMessage(Edit1.Handle, WM_GETTEXTLENGTH, 0, 0);

  // vamos exibir o resultado
  ShowMessage('O edit contém ' + IntToStr(tamanho) + ' caracteres.');
end;