Artigo Clube Delphi Edição 28 - Dicas e Soluções

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Soluções rápidas para Delphi e InterBase.

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.

 

"

A exibição deste artigo foi interrompida :(
Este post está disponível para assinantes MVP

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?