procedure TForm1.Button1Click(Sender: TObject);
var
  quant: Integer;
begin
  // vamos adicionar dois itens na TListBox
  ListBox1.Items.Add('Item 1');
  ListBox1.Items.Add('Item 2');

  // vamos obter a quantidade de itens
  quant := ListBox1.Items.Count;

  // exibe o resultado
  ShowMessage('Quantidade de elementos: ' + IntToStr(quant));
end;

quant := ListBox1.Count;

private void button3_Click(object sender, EventArgs e){
  // vamos ocultar a primeira linha
  dataGridView1.Rows[0].Visible = false;
}

package arquivodecodigos;

import java.util.*;
import java.text.*;
 
public class Estudos{ 
  public static void main(String args[]){ 
    try{
      // constrói a primeira data
      DateFormat fm = new SimpleDateFormat(
        "dd/MM/yyyy");
      Date data1 = (Date)fm.parse("20/10/2008");
 
      // constrói a segunda data
      fm = new SimpleDateFormat("dd/MM/yyyy");
      Date data2 = (Date)fm.parse("30/12/2008");
 
      // vamos obter a diferença de meses
      long segundos = (data2.getTime() - 
        data1.getTime()) / 1000;
      int meses = (int)Math.floor(segundos / 2592000);
      segundos -= meses * 2592000;
      int dias = (int)Math.floor(segundos / 86400);
       
      // exibe o resultado
      System.out.println("As duas datas tem " +
        meses + " meses e " + dias + 
        " dias de diferença");
    }
    catch(ParseException e){
      e.printStackTrace();
    }
  } 
}

<?php
  // vamos declarar e construir uma matriz de três linhas
  // e três colunas
  $matriz = array(  
    array(3, 7, 9),
    array(2, 4, 1),
    array(5, 6, 8)
  );
  
  // guarda a soma dos elementos na diagonal principal
  $soma_diagonal = 0;
  
  // vamos mostrar a matriz da forma que ela
  // foi informada
  echo "<br>";
  // percorre as linhas
  for($i = 0; $i < count($matriz); $i++){ 
    // percorre as colunas
    for($j = 0; $j < count($matriz[0]); $j++){
      echo $matriz[$i][$j] . "   ";
    }
    // passa para a próxima linha da matriz
    echo "<br>";
  }
  
  // vamos calcular a soma dos elementos da diagonal   
  // principal
  for($i = 0; $i < count($matriz); $i++){
    for($j = 0; $j < count($matriz[0]); $j++){
      if($i == $j){
        $soma_diagonal = $soma_diagonal + $matriz[$i][$j];
      }
    }
  }
     
  // finalmente mostramos a soma da diagonal principal
  echo "<br>A soma dos elementos da diagonal principal é: " 
    . $soma_diagonal;
?>

3 7 9
2 4 1
5 6 8

A soma dos elementos da diagonal principal é: 15

procedure TForm2.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  // vamos criar o bitmap
  bmp := TBitmap.Create;

  // vamos carregar a imagem e guardá-la no bitmap
  bmp.LoadFromFile('foto.bmp');

  // vamos desenhar o bitmap no formulário
  // começando nas coordenadas x = 0; y = 0 a partir
  // do canto superior esquerdo da área cliente do formulário
  Form2.Canvas.Draw(0, 0, bmp);

  // vamos liberar o bitmap
  bmp.Free;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
  retang: TRect; // um objeto TRect
begin
  // vamos criar o bitmap
  bmp := TBitmap.Create;

  // vamos carregar a imagem e guardá-la no bitmap
  bmp.LoadFromFile('foto.bmp');

  // vamos redimensionar o bitmap na memória de
  // acordo com o retângulo abaixo
  retang.Top := 0;
  retang.Left := 0;
  retang.Right := 200;
  retang.Bottom := 150;

  // vamos desenhar o bitmap usando o método
  // StretchDraw da classe TCanvas
  Form2.Canvas.StretchDraw(retang, bmp);

  // vamos liberar o bitmap
  bmp.Free;
end;