Olá a todos, por necessidade e evitar replicar código em minhas aplicações criei/adaptei um componente a base do DBEdit(padrão do Delphi) que faça mascara ao digitar suportando no mesmo componente CPF ou CNPJ.
Qualquer sugestão de implantação e melhoria de código encaminhe o código para: tecnologiaminas@gmail.com
No evento KeyPress do seu Edit coloque o código abaixo
if not CharInSet(Key, [‘0’..’9′,#8, ^V, ^C, ^X]) then
Key := #0;
Deixando como abaixo.
procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
if not CharInSet(Key, [‘0’..’9′,#8, ^V, ^C, ^X]) then
Key := #0;
end;
Com esse código vai permitir, que possa copiar, recortar e colar no seu Edit, além digitar somente números e a tecla BackSpace(#8)
ate+
Simples Código para criar database access com o Delphi.
declare na uses a unit ComObj
var
Base: String;
cat: OLEVariant;
begin
try
cat := CreateOleObject(‘ADOX.Catalog’);
cat.Create(‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\BancoAccess.mdb;);
cat := NULL;
except
on e: Exception do ShowMessage(e.message);
end;
Ola pessoal, depois de muito tempo sem postar estou de volta.
Esses dias precisei implementar em 1 projeto a funcionalidade a qual, o usuario poderia visualizar a imagem(JPG, ou BMP) de um relatorio gerado, andei pesquisando na rede, encontrei alguns códigos os quais maioria não funcionaram, ate encontar o componente ImageZoom, só precisei acrescentar algumas coisas e ele esta pronto para o Delphi 2010, ele ja vem com um exemplo beem bacana de uso.
Aqui para download.
ate + abs.
Com alguns Plugins você consegue adicionar funcionalidades extras ao delphi, nesse post vou falar do DevExtensions e 2 principais características.
Dentre as principais funcionalidade quais destaco a substituição massiva de componente em um projeto exemplo trocar todos os edits por dbedits, mudança de propriedades de componentes em uma aplicação essa ultima uso muito para fechar os DataSets e os componentes de conexão com o Banco de Dados.
Encontrei uma unit MathParser.pas , ela possui uma rotina de calculo de Expressões matemáticas bem interessante foi útil em um projeto que desenvolvi.
Na imagem abaixo um pequeno exemplo de uso.
Uso com uma expressão simples
Download: http://www.4shared.com/file/utEj4j0t/mathparser.html
Ando sem tempo para postar, mas após muita pesquisa postagens em foruns, vi nesse post no blog do Vitor Rubio que por sinal muito interessante, que deu a luz para a correção do problema no Preview do VDOPrint que pode ser encontrado neste post.
O problema é que no Delphi 2010 os caracteres unicode são formados por 2 bytes(leiam o post do Vitor Rubio para mais detalhes), e com isso dava aqueles problemas no preview, para correção basta fazer uma modificação na procedure NewLine na unit VDOPreview, e trocar a linha:
Write(#13#10);
por
Write(#13);
e pronto agora basta recompilar o pacote instalar e testar que está resolvido o problema do preview.
Segue o link do VDoPrint3.1.1 para download com a correção.(Obs: 3.1.2, é o meu controle da versão).
http://www.4shared.com/file/Kb4MmXpi/VDOPrint-311.html
Até a próxima.
Apesar de Dezembro geralmente ser um mês de poucas novidades no “mundo do software”, os desenvolvedores do Firebird não descansaram! Prova disso é a implementação, feita pelo brasileiro Adriano Fernandes, do tipo boolean para o Firebird. Com isso, o Firebird 3 passará a dar suporte esse tipo de dado, atendendo inúmeras e antigas solicitações dos usuários.
por Jander Alberice.
fonte: http://asfernandes.blogspot.com/2010/12/introducing-boolean-datatype.html
Para verificar a versão do Delphi.
function GetDelphiVer(str: string) : string;
begin
{$IFDEF VER130}
ShowMessage('Delphi 5');
{$ELSE}
{$IFDEF VER140} // se for Delphi6
ShowMessage('Delphi 6');
{$ELSE}
{$IFDEF VER150} // se for Delphi7
ShowMessage('Delphi 7');
{$ELSE}
{$IFDEF VER210} // se for Delphi6
ShowMessage('Delphi 2010');
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
end;
É sú utilizar a tabela abaixo e implementar de acordo com a sua necessidade.
{$IFDEF VER80} - Delphi 1
{$IFDEF VER90} - Delphi 2
{$IFDEF VER100} - Delphi 3
{$IFDEF VER120} - Delphi 4
{$IFDEF VER130} - Delphi 5
{$IFDEF VER140} - Delphi 6
{$IFDEF VER150} - Delphi 7
{$IFDEF VER160} - Delphi 8
{$IFDEF VER170} - Delphi 2005
{$IFDEF VER180} - Delphi 2006
{$IFDEF VER180} - Delphi 2007
{$IFDEF VER185} - Delphi 2007
{$IFDEF VER200} - Delphi 2009
{$IFDEF VER210} - Delphi 2010
{$IFDEF VER220} - Delphi XE
Ate a próxima e feliz 2011 a todos.
O VDOPrint (Apenas o VDOPrinter o de ícone com a cor verde) possui um pequeno Bug, que faz deixarlixo na memoria(Objetos por ele criados e não sao destruidos), que pode ser visto da seguinte maneira:
Crie um novo projeto.
Adicione o componente (o VDOPrinter o de ícone com a cor verde) no seu formulário.
E no .dpr logo abaixo da linha Application.Initialize, coloque o seguinte comando:
- ReportMemoryLeaksOnShutdown := true;
Deve ficar igual a afigura abaixo.
- Img1 – Como deve ficar .dpr do projeto
Após isso execute o projeto e clique no botao fechar do form, isso fará com que sua aplicação ao ser destruída reporte todos os lixos de memoria, se o componente estiver com o bug sua aplicação mostrar uma mensagem assim:
- Img2 – Imagem da mensagem
A img2 é o sistema reportando o memory leaks gerado pelo componente.
Para resolver isso é simples: Abra o Package do VDOPrinter, e depois abra o arquivo VDOPrinter.pas e no destrutor do objeto adicione as 2 linhas de código antes do inherited;
- FCaSets.Free;
- FDmSets.Free;
Repare como era o código antes de altera e depois de alterar.
- Comparação das mudanças – Antes e depois
Apos as mudanças reinstale o componente e teste o projeto feito anteriormente e nao ocorrera mais a mensagem ou seja o VDOPrint esta livre de memory leaks.
Blog do Thiago Balbino 