Traduzindo a mensagem : Delete Record

Quando clicamos sobre o botão de deleção no DBNavigator  (o do sinal de menos) surge uma box com a mensagem  “Delete Record?” com botões Ok e Cancel. Para fazer aparecer a mensagem em português deverá selecionar o componente Table e mudar a propriedade ConfirmDelete para False e no evento da tabela BeforeDelete colocar o seguinte: procedure TForm1.Table1BeforeDelete(DataSet:TDataSet); begin

Continue reading »

Como configurar o acesso à BD Paradox em uma rede?

Como configurar o acesso à BD Paradox em uma rede? Para acessar bancos de dados Paradox em uma rede utilizando Windows, faça o seguinte: Abra o BDE Administrator;Na aba Configuration, escolha a “pasta” Drivers|Native|PARADOX e altere NetDir para o nome do servidor (no formato de rede – ex: \\Servidor\Compartilhamento); Na “pasta” System|INIT, altere LocalShare para True; Altere o

Continue reading »

Convertendo a 1ª letra de um edit para maiúsculas

Convertendo a 1ª letra de um edit para maiúsculas Esta dica é útil para ser utilizada no cadastramento de nomes. Se o operador do sistema esquecer de colocar a primeira letra de um nome em minúscula, automaticamente a letra ficará maiúscula. Para que isto ocorra, coloque um objeto edit no formulário e no seu evento

Continue reading »

Adicionando à hora atual, um número determinado de horas

Adicionando à hora atual, um número determinado de horas Utilize a função abaixo: function AdicionaHora(TimeAdd: Integer) : String; Var Horas,Min,SomaHoras,SomaMin : Integer; S, S1 : String; begin Horas := Strtoint(Copy(TimetoStr(Time),1,2))+ TimeAdd; Min := Strtoint(Copy(TimetoStr(Time),4,2))+ TimeAdd ; SomaHoras := SomaHoras+Horas; SomaMin := SomaMin + Min; If SomaMin > 59 Then begin if SomaMin mod 60 =

Continue reading »

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 +

Continue reading »
Pages:1234567...23»