Localizando valores por proximidade em uma tabela

Localizando valores por proximidade em uma tabela. Muitas vezes, necessitamos encontrar registros em uma tabela que sejam próximos ou idênticos a um determinado valor, para isso, podemos utilizar uma das rotinas a seguir. A primeira requer uma chave primária na tabela e a segunda permite a localização sem o uso de chaves primárias (Versão superior 2):   NomeDaTabela.FindNearest([Valor]);

Continuar lendo »

Verificando ano bisexto pelo Delphi

Verificando ano bisexto pelo Delphi Utiliza e a função abaixo: function AnoBis(Data: TDateTime): Boolean; {Verifica se um ano é bisexto, retornando True em caso positivo} var Dia,Mes,Ano : Word; begin DecodeDate(Data,Ano,Mes,Dia); if Ano mod 4 <> 0 then AnoBis := False else if Ano mod 100 <> 0 then AnoBis := True else if Ano

Continuar lendo »

Converte um valor Hexadecimal em Integer

Função que converte um valor Hexadecimal em Integer em Delphi function HexToInt(const HexStr: string): longint; var iNdx: integer; cTmp: Char; begin result := 0; for iNdx := 1 to Length(HexStr) do begin cTmp := HexStr[iNdx]; case cTmp of ‘0’..’9′: Result := 16 * Result + (Ord(cTmp) – $30); ‘A’..’F’: Result := 16 * Result +

Continuar lendo »

Converte String em Booleano

Função que converte String em Booleano em Delphi function strToBoolean(s: string): boolean; begin result := ((uppercase(s) = ‘TRUE’) or (uppercase(s) = ‘T’) or (uppercase(s) = ‘YES’) or (uppercase(s) = ‘Y’) or (uppercase(s) = ‘ON’) or (uppercase(s) = ‘O’) or (uppercase(s) = ‘1’)); end;  

Continuar lendo »
Pages:1234567...21»