SELECINAR TEXTO DE UM "EDIT"

Para selecionar o conteúdo de um Edit , por exemplo , você deve atribuir a propriedade "SelectAll"

EXEMPLO

procedure TfrmClientes.ButtonClick(Sender: TObject);

begin

  Edit1.SelectAll;

end;

OBRIGAR UM CAMPO RECEBER NULL

Quando usamos uma referencia do tipo qryClienteBLOQUEADO.ISNULL ou

qryClienteBLOQUEADO.value := NULL o delphi retorna um erro de imcompatibilidade .

Para "driblar" este problema referencie da seguinte maneira :

qryCliente.FieldbyName('BLOQUEADO').value := NULL

ACBR VALIDADOR : VALIDAÇÃO DE CNPJ, CPF, INSCRIÇÃO ESTUADUAL, UF, NÚMERO CARTÃO DE CRÉDITO

Existe um jeito muito simples para validar CPF, CNPJ, I.E, CPE, PIS, nº Cartão de Crédito, nº de Cheque usando o componente ACBR Validador.

É preciso baixar os fontes do ACBR no site oficial via SVN 

Depois na IDE do delphi (Tools , Options , Library32 , Library Path , adicione o caminho
C:\acbr\Fontes\ACBrDiversos

Agora pelo delphi abra o pacote C:\acbr\Pacotes\Delphi\ACBrDiversos.dpk

Compile e depois Instale

FORMA DE USAR O COMPONENTE

Adicione um componente ACBRValidador (paleta ACBR) no seu form 

Na propriedade TipoDocto selecione o tipo de documento que deseja validar

Exemplo de validação :

    ACBrValidador1.Documento := EditIncrEst.Text;
    if not ACBrValidador1.Validar then
    begin
      showmessage ('Inscrição Estadual Inválida');
      abort;
    end

VALIDAÇÃO PARA ESTADOS BRASILEIROS (UF)

// verifique se a biblioteca SysUtils está declarada na cláusula 'uses'

// Declare a função :

function ChecaUF(const aUF : string) : Boolean; 

// Crie a função

function ChecaUF(const aUF : string) : Boolean;
const
  Estados = 'SPMGRJRSSCPRESDFMTMSGOTOBASEALPBPEMARNCEPIPAAMAPFNACRRRO';
var
  Posicao : Integer;
begin
  Posicao := Pos(UpperCase(aUF), Estados);
  Result := not ((Posicao = 0) or ((Posicao mod 2) = 0)
    or (Trim(aUF) = ''));
end;

// Exemplos de uso:

// Teste se verdadeiro
  if CheckUF('EditEstado.Text') then
    ShowMessage('UF válida');
 

// Teste se falso  
  if not (CheckUF('EditEstado.Text')) then
    ShowMessage('UF inválida');



RODANDO EXECUTÁVEIS VIA CÓDIGO NO DELPHI

Você pode chamar um arquivo executável pelo delphi pela programação , utilizando o comando WinExec

Sintaxe :

WinExec(PChar('caminho_do_arquivo_exe'),SW_MAXIMIZE);

O comando SW_MINIMIZE serve para executar maximizado, se quiser rodar minimizado mude para SW_MINIMIZE

ALTERAR SENHA DO 'SA' NO FIREBIRD

PARA ALTERAR A SENHA DO SUPER ADMINISTRADOR DO FIREBIRD ENTRE NO NO PROMPT DE COMANDO NAVEQUE ATÉ A PASTA BIN , ONDE O FIREBIRD FOI INSTALADO E EXECUTE O COMANDO :

gsec -modify SYSDBA -pw NOVASENHA -user SYSDBA -password masterkey?

OBS : Você tembém pode fazer isso em tempo de execução usando o comando 'WinExec' (ver exemplo de uso no menu "arquivos e pastas" do blog)

CLIPBOARD NO DELPHI (COPIAR E COLAR)

DECLARE A BIBLIOTECA "ClipBrd" NA CLÁUSULA "USES"

COPIANDO O TEXTO DO COMPONENTE EDIT1 (NO BOTÃO "BtCtrlC")

procedure TForm1.BtCtrlCClick(Sender: TObject);

begin

     ClipBoard.AsText := Edit1.Text;

end;

COLANDO O TEXTO  COPIADO NO COMPONENTE EDIT2 (BOTÃO "BtCtrlV")

procedure TForm1.BtnCtrlVClick(Sender: TObject);

begin

     Edit2.Text :=  Clipboard.AsText;

end;