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

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"

 [...] continue lendo...

Artigos relacionados