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.
...
