posicionar o cursor no final do texto de um edit

  
Edit1.SelStart := Length( Edit1.Text );

filtrando registros pelo mês de um campo tipo data

você pode filtrar registros por um determinado mês de um campo do tipo data , fazendo um select do tipo :

select * from clientes
where extract (month from 'nascimento') = 10

obs : nesse caso vai filtrar todos os clientes que nasceram em outubro ( filtra o mês 10 no campo nascimento)

se preferir pode passar o valor via parâmentro .

separar números de letras numa string

...
var i:integer;
texto,varletras,varnumeros:string;
begin
texto := 'SUA STRING';
varletras := ´´;
varnumeros := ´´;
for i:=1 to Length(Texto) do
if (Texto[i] in [´0´..´9´]) then
varnumeros := varnumeros+Texto[i]
else
varletras := varletras + Texto[i];
end;

Ao final desse código a variável numletras terá as letras e a variável varnumeros terá os números.

coalesce : obrigar select filtrar valores nulos para determinados campos (FIREBIRD)

Muitos iniciantes não sabem mas o comando SELECT simples muitas vezes não traz como resultado registros que possuem valor nullo num determinado campo indicado na pesquisa.

para obrigar a seleção resultar campos com valores nulos :


select * from CLIENTES
where coalesce (codigo,'') like :0 and
           coalesce (nomerazao,'')  like :1 and
           coalesce (apelfant,'')  like :2 and
           coalesce (cpfcnpj,'')  like :3 and
           coalesce (tipopessoa,'')  like :4 and
           coalesce (cidade,'')  like :5
           order by codigo

Esse exemplo foi inserido num componente do tipo Query .
O argumento coalesce seguido da sintaxe (CAMPO,'') , onde campo é o campo sugerido na pesquisa e o espaco me branco marcado com '' substitui os valores nulos por valor em branco (somente durante a pesquisa) e retorna os resultados.

obrigar uma string receber caracter maiúsculo

objeto que vai receber o valor maiúsculo := AnsiUpperCase(elemento que vai ser transformado em maiúsculo);

erro : O programa de instalação do SQL Server não pode instalar arquivos na pasta compactada ou criptografada

Hoje fui tentar instalar o sql server numa máquira rodando windows XP e me deparei com o seguinte erro durante a instalação :

O programa de instalação do SQL Server não pode instalar arquivos na pasta compactada ou criptografada: c:\Arquivos de programas\Microsoft SQL Server\. Para continuar, certifique-se de que os diretórios de instalação não estão compactados ou criptografados ou especifique um diretório diferente e execute o programa de instalação do SQL Server novamente

Para resolver o problema fui até a pasta de instalação do sql server : c:\Arquivos de programas\Microsoft SQL Server , clique com o botão direito do mouse nela, em seguida selecione Propriedades , em seguida clique no botão avançado. Depois é só desmarcar a opção "Compactar o conteúdo para economizar espaço em disco"  e dar OK.

Pronto , resolvido o problema.

verificar conexão com a internet

// declare a função :

function conexao_teste : boolean;

// implemente função :

function conexao_teste : Boolean;
var
 flags : DWORD;
begin
 if not InternetGetConnectedState(@flags, 0) then
    result := false
 else
    result := true;
end;

// para a verificação :

  conexao_teste;
  if conexao_teste = true then showmessage ('conectado');