Esse artigo faz parte da revista Clube Delphi edição 28. Clique aqui para ler todos os artigos desta edição



Atenção: por essa edição ser muito antiga não há arquivo PDF para download. Os artigos dessa edição estão disponíveis somente através do formato HTML.

Dicas e Soluções

Soluções rápidas para Delphi e InterBase

Dicas de Delphi

 

Nomes de campos

Para retornar a lista dos nomes de todos os campos de uma tabela ou query utilize o método GetFieldNames. Neste código, um ListBox recebe o nome de todos os campos de um Table:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

   Table1.GetFieldNames(ListBox1.Items);

end;  

Anos completos

A função YearsBetween retorna o número de anos entre duas datas. É útil para retornar a idade de uma pessoa em anos completos:

 

procedure TForm1.Button1Click(Sender: TObject);

var Idade: Integer;

begin

  Idade:= YearsBetween(

    StrToDate(Edit1.Text), StrToDate(Edit2.text));

  ShowMessage('Idade = ' + IntToStr(Idade));

end;

Nota: Você precisa adicionar a unit “DateUtils” na clausula uses da sua unit.

Extrair somente números

A função a seguir contém um parâmetro de entrada Texto que recebe a String a ser pesquisada. Por exemplo, para a chamada ExtrairNumeros(‘A1B2C3D4E5F6’), a função retornará "123456". Esta função pode ser útil, por exemplo, para extrair CEPs, RGs e CPFs que contêm pontos (.), barras (/) ou traços (-) a partir de componentes que não fazem esse tratamento automaticamente.

 

...

Quer ler esse conteúdo completo? Tenha acesso completo