Quantos fins de semana já se passaram no corrente ano
Quantos fins de semana já se passaram no corrente ano function WeekNum(const TDT:TDateTime) : Word; var Y,M,D:Word; dtTmp:TDateTime; begin…
Como Instalar um Sistema Delphi na Máquina do Cliente
Ao distribuir um sistema desenvolvido em Delphi 2.0 que utiliza banco de dados, é essencial incluir os arquivos corretos para…
Como Criar Forms Não Retangulares no Delphi
No Delphi, é possível alterar o formato padrão de uma janela (form) para uma forma personalizada, como uma elipse. Isso…
Como Obter Informações da BIOS no Delphi
No Delphi, podemos acessar informações da BIOS do computador diretamente pela memória. A função abaixo retorna esses dados em formato…
Compara dois valores e retorna o maior
Função que compara dois valores e retorna o maior em Delphi function Max(A, B: Integer): Integer; begin if A >…
Testa se a hora é antes de Meio dia
Função que testa se a hora é antes de Meio dia function IsAM: Boolean; begin Result := Frac(Time) > 0.5…
Criação de índices em tempo de execução
Pergunta: Tenho um programa que se utiliza de alguns arquivos que preciso efetuar a criação de índices em tempo de execução….
Movendo um Form sem barra de título
Movendo um Form sem barra de título Forms que não possuem barra de título (as que têm a propriedade BorderStyle setada…
Como Abreviar Nomes no Delphi
Esta função permite abreviar nomes próprios, mantendo o primeiro e o último nome completos e abreviando os intermediários. Código otimizado…
Imprime um campo memo
procedure PrintMemo; var i,col,lin:integer; begin col:=0; // posição da coluna lin:=0; // posição da linha printer.begindoc; for i := 0…