procedure TForm3.Button3Click(Sender: TObject);
var
  indice: Integer;
begin
  // vamos obter o índice da coluna da célula atual
  indice := TStringGrid(DBGrid1).Col;
  ShowMessage('O índice da coluna da célula atual é: ' +
    IntToStr(indice));
end;

package arquivodecodigos;

// Este exemplo mostra como verificar se uma
// string é um valor númerico
public class Estudos {

  public static void main(String[] args) {
    String valor = "2334554";
    boolean valido = true;

    for (int i = 0; i < valor.length(); i++) {
      Character caractere = valor.charAt(i);
      if (!Character.isDigit(caractere)) {
        valido = false;
        break;
      }
    }

    if (valido) {
      System.out.println("Valor numérico valido");
    } 
    else {
      System.out.println("NãO é um valor numerico valido");
    }

    System.exit(0);
  }
} 

=RADIANOS(A1)

CREATE TABLE ALUNOS (
  ID          INTEGER NOT NULL,
  NOME        VARCHAR(40) NOT NULL,
  NASCIMENTO  DATE NOT NULL
);

INSERT INTO ALUNOS VALUES(1, 'OSMAR J. SILVA', '1981-11-28');

SELECT * FROM ALUNOS;

ID  NOME	     NASCIMENTO
1   OSMAR J. SILVA   28/11/1981

CREATE TABLE COMPROMISSOS (
  ID         INTEGER NOT NULL,
  DESCRICAO  VARCHAR(80) NOT NULL,
  DATA       DATE NOT NULL,
  HORA       TIME NOT NULL
);

INSERT INTO COMPROMISSOS VALUES(10, 'ALMOÇO COM A ESPOSA',
  '2010-12-10', '19:00:00');

SELECT * FROM COMPROMISSOS;

ID  DESCRICAO	          DATA	        HORA
10  ALMOÇO COM A ESPOSA	  10/12/2010	19:00:00

CREATE TABLE COMPROMISSOS (
  ID         INTEGER NOT NULL,
  DESCRICAO  VARCHAR(80) NOT NULL,
  DATA_HORA  TIMESTAMP NOT NULL
);

INSERT INTO COMPROMISSOS VALUES(20, 'ALMOÇO COM A ESPOSA', 
  '2010-10-23 19:00:00');

SELECT * FROM COMPROMISSOS;

ID  DESCRICAO	          DATA_HORA
20  ALMOÇO COM A ESPOSA	  23/10/2010 19:00:00

programa {
  // vamos importar a biblioteca Texto
  inclua biblioteca Texto --> tx
  
  funcao inicio() {
    // vamos criar uma frase
    cadeia frase = "Gosto de programar em Portugol"
    // vamos criar uma sub-cadeia
    cadeia palavra = "Portugol"

    // vamos verificar se a sub-cadeia está contida na cadeia
    se (tx.posicao_texto(palavra, frase, 0) != -1) {
      escreva("A substring está contida na string")   
    }
    senao {
      escreva("A substring não está contida na string") 
    }
  }
}