Instalação do Sistema em Delphi na Máquina do seu Cliente.

Pergunta 1: Gostaria de saber quais os arquivos que deverei levar junto com as aplicações de banco de dados que desenvolvo em DELPHI 2.0., pois já copiei as DLL dos subdiretórios BDE e IDAPI e aplicação continuou dando erro de inicialização do DBE (ERRO $220B). Resposta 1: Você por acaso tem o programa original do Delphi? Caso possua, o

Continue reading »

Como Utilizar Bookmarks em tabelas?

A utilização de Bookmarks permitem ao desenvolvedor “memorizar” um determinado local da tabela para que possa retornar mais tarde, é muito simples e fácil de usar, já que existem apenas três métodos que lhe permitem utilizar este recurso. Para marcar um determinado local em uma tabela necessitamos criar uma nova instancia de TBookmark e executar o método GetBookMark de uma

Continue reading »

Número de cores aceitas pelo monitor

Número de cores aceitas pelo monitor O código abaixo apresenta a implementação de uma função que retorna o número de cores suportadas pelo monitor. Esta função baseia-se na utilização de uma API do Windows, chamada GETDC.: Function QtdeCores : integer;var h : HDC; begin Result := 0; try h := GetDC( 0 ); Result :=1

Continue reading »

Abreviando nomes

Abreviando Nomes function AbreviaNome(Nome: String): String; var Nomes: array[1..20] of string; i, TotalNomes: Integer; begin Nome := Trim(Nome); Result := Nome; {Insere um espaço para garantir que todas as letras sejam testadas} Nome := Nome + #32; {Pega a posição do primeiro espaço} i := Pos(#32, Nome); if i > 0 then begin TotalNomes :=

Continue reading »

Função que retorna a idade de uma pessoa

Função que retorna a idade de uma pessoa function idade(Nascimento,DataAtual:string):Integer; var idade,dian,mesn,anon,diaa,mesa,anoa:word; begin decodedate(StrToDate(DataAtual),anoa,mesa,diaa); decodedate(StrToDate(Nascimento),anon,mesn,dian); idade := anoa – anon; if mesn > mesa then begin idade := idade; end; if(mesn > mesa) and (dian > diaa)then begin idade := idade; end; result := idade; end;

Continue reading »
Pages:1234567...23»