DUG-SP - Delphi Users Group São Paulo

Salve Galera!

É com muita alegria que estamos começando as operações do DUG-SP (http://www.dug-sp.com).

 

 Temos uma lista na internet também .

 

 http://br.groups.yahoo.com/group/DUGSP

 

 Como estamos começando, estamos fechando as parcerias para as reuniões 

 que a principio serão bimestrais com um evento de hands-on também, 

 esses eventos serão definidos mas sem uma obrigação periódica.

 

 A agenda será publicada com antecedência no próprio site (Que é feito em Delphi).

 

 Ainda existem funcionalidades que não implementamos e o layout como 

 era de se esperar é aquele...feito por programadores..risos.

 

 Mas começamos as operações e isso que importa agora..se formos esperar 

 estar tudo 100% não começaríamos nunca.

 

 Na lista tem uma enquete sobre o melhor dia para a reunião bimestral. 

 O evento de hands on será sempre aos sábados de 09:00 as 18:00.

 

 http://br.groups.yahoo.com/group/DUGSP/polls 

 

 Vamos sempre fazer pesquisa sobre o assunto a ser abordado nas 

 reuniões bimestrais e tentaremos sempre definir uma pauta anual e 

 contaremos com todos os participantes para estarem compartilhando 

 conhecimento em nossas reuniões. E periodicamente tentaremos marcar um 

 "Botequim do programador" e tentar alcançar cidades ao redor da 

 capital também. Mas vamos tentar, o certo é que as reuniões estarão 

 acontecendo na capital.

 

 Estaremos publicando todas as informações operacionais do DUG na lista e 

 nos site. A agenda de eventos do DUG estará somente no site (http://www.dug-sp.com). 

 No site teremos mais funcionalidades a medida que fizermos manutenção e 

 formos evoluindo a engine dele.

 

 Abraços!!!

Simular a nova propriedade HintText do Delphi2009

Olá Pessoal,

Fiquei muito entusiasmado com os novos recursos e componentes da VCL, e um deles que é de muita utilidade é a nova propriedade HintText presente no TEdit, ela permite que você defina um texto padrão a ser exibido no Edit quando a propriedade text não tiver nenhum valor.

Bom, como eu sei que nem todos podem migrar imediatamente e desfrutar desse novo recurso, resolvi demonstrar como é possível simular o HintText utilizando qualquer versão do Delphi.

Veja o exemplo:

unit uFormPadrao; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XPMan; type TFormPadrao = class(TForm) procedure FormCreate(Sender: TObject); private procedure TextHintOnEnter(Sender: TObject); procedure TextHintOnExit(Sender: TObject); { Private declarations } public { Public declarations } end; var FormPadrao: TFormPadrao; implementation {$R *.dfm} Const DefaultColor: TColor = clBlack; procedure TFormPadrao.FormCreate(Sender: TObject); var i: Integer; begin for i := 0 to ComponentCount - 1 do begin if Components[i] is TEdit then begin TEdit(Components[i]).OnEnter := TextHintOnEnter; TEdit(Components[i]).OnExit := TextHintOnExit; TextHintOnExit(TEdit(Components[i])); end; end; end; procedure TFormPadrao.TextHintOnEnter(Sender: TObject) ; begin if Sender is TEdit then begin if TEdit(Sender).Text = TEdit(Sender).Hint then TEdit(Sender).Text := EmptyStr; TEdit(Sender).Font.Color := DefaultColor; end; end; procedure TFormPadrao.TextHintOnExit(Sender: TObject) ; begin if Sender is TEdit then begin if TEdit(Sender).Text = EmptyStr then begin TEdit(Sender).Text := TEdit(Sender).Hint; TEdit(Sender).Font.Color := clGray; end; end; end; end.

Para que todos os forms tenham a funcionalidade você pode criar um form Padrao e utilizar a herança para fazer o trabalho para você.

Veja o nosso exemplo funcionando:

Bom a única observação é que na hora de utilizar esse valor (seja para gravar no banco ou apenas exibir ao usuário) você deve verificar se o text é igual ao hint, se estiver igual significa que Text está vazio.

É isso ai! um grande abraço a todos.

Delphi Tour 2009

     Pessoal, hoje tive o prazer de participar do Delphi Tour 2009. E posso afirmar que a nova versão está repleta de grandes novidades. Dentre elas, as que mais me chamaram a atenção foram:

• Build Configuration
  
• Generics
• Métodos Anonimos
• Novos DataSnap (Esse em especial está um show)  

   Além é claro de 100% de suporte a UNICODE e novos componentes da VCL (destaque para o Ribbon Controls). 

   Já está disponível para donwload a versão trial, então vale apenas baixar e conferir pessoalmentes todas essas novidades.

Vamos lá pessoal. Delphi 2009 na cabeça!

Algorítimo para validação de CNH

Olá comunidade,

Hoje resolvi disponibilizar um algoritmo para a validação de CNH, essa função já contempla os dois modelos de CNH. Aproveitem!

function ValidaCNH(cnh: string): Boolean; function valida_new_cnh(cnh: String): Boolean; var Soma, Conta, Dv, Digito, i: Integer; CnhN: String; NumerosIguais: Boolean; begin Result := False; NumerosIguais := True; CnhN := FormatFloat('00000000000', StrToFloat(trim(cnh))); Soma := 0; {Validando se todos o números são iguais} for i := 1 to length(CnhN) - 1 do if CnhN[1] <> CnhN[i] then NumerosIguais := False; if NumerosIguais then Exit; for i := 1 to length(CnhN) - 2 do Soma := Soma + (StrtoInt(CnhN[i]) * (i + 1)); Conta := (Soma div 11) * 11; if (Soma - Conta) < 2 then Dv := 0 else Dv := 11 - (Soma - Conta); Digito := StrToInt(CnhN[10]); if Digito = Dv then Result := True; end; function valida_old_cnh(cnh: String): Boolean; var Soma, Conta, Dv, Digito, i: Integer; CnhN: String; NumerosIguais: Boolean; begin Result := False; NumerosIguais := True;; CnhN := FormatFloat('000000000', StrToFloat(trim(cnh))); Soma := 0; {Validando se todos o números são iguais} for i := 1 to length(CnhN) - 1 do if CnhN[1] <> CnhN[i] then NumerosIguais := False; if NumerosIguais then Exit; for i := 1 to length(CnhN) - 1 do Soma := Soma + (StrtoInt(CnhN[i]) * (i + 1)); Digito := StrToInt(CnhN[9]); Conta := Soma mod 11; if Conta = 10 then Conta := 0; if Digito = Conta then result := True; end; begin result := (valida_new_cnh(cnh) or valida_old_cnh(cnh)); end;

Bom eu testei com algumas CNH's e ela funcionou na boa, se tiverem problema me avisem.

Abraço a todos.

Delphi Tour 2009

Pessoal, o momento está chegando, dia 10 de setembro de 2008 em São Paulo é o dia em que vamos conhecer a próxima geração das melhores ferramentas de desenvolvimento do planeta!.

Já tenho acomanhado alguma novidades e posso garantir que essa versão está repleta de novidades.

Eu já fiz aminha inscrição, não vou perder isso por nada nesse mundo. Vejo vocês lá!

Abraço a todos.

Importar um arquivo delimitado de forma prática

Pessoal tenho recebido alguns pedidos para demostrar como importar de forma prática um arquivo delimitado.
Então resolvi publicar aqui uma forma de se trabalhar na importação desse tipo de arquivo de forma simples e rápida.
Obviamente essa não é a única forma e talvez nem seja a melhor, mas é aquela que me atende nos meus projetos,
portanto quem tiver algum outro meio que julgue prático fique a vontade para deixar o comentário. Primeiro quero explicar o que será feito, depois codificamos. Imagine um arquivo delimitado por ";" (ponto-e-virgula)

0001;CRISTIANO MARTINS ALVES;28;MASCULINO
0002;ALESSANDRA AMARAL;37;FEMININO

Vemos nesse exemplo que podemos obter Linhas e Colunas, então a ideia é: Primeiro extraimos e linha e depois, extraimos as colunas dessa linha.
Podemos então utilizar 2 TStringLists para nos ajudar nessa tarefa, um chamado de linhas e outro de colunas. Depois percorremos o StringList de linhas e
extraimos as colunas, "jogando" no outro StringList. Ou Seja o que esta em linha assim:

0001;CRISTIANO MARTINS ALVES;28;MASCULINO
vai parar em coluna assim:
CRISTIANO MARTINS ALVES
28
MASCULINO

Dessa forma fica fácil manipular essa dados no LtringList, veja o código

var Linhas, Colunas:TStringList; i,j:integer; begin Linhas := TStringList.Create; Colunas := TStringList.Create; try Linhas.LoadFromFile('C:\MeuArquivo.txt'); //Carregando arquivo for i := 0 to Pred(Linhas.Count) do begin {Transformando os dados das colunas em Linhas} Colunas.text := StringReplace(Linhas.Strings[i],';',#13,[rfReplaceAll]); for j := 0 to Pred(Colunas.Count) do begin { Aqui você faz alguma coisa como colocar num Edit No Meu caso aqui para exemplificar vou apenas mostrar num ShowMessage} ShowMessage('Valor "'+Colunas.Strings[j] + '" da Linha '+IntTostr(i+1) + ' Coluna '+IntToStr(j+1)); end; end; finally Linhas.Free; Colunas.Free; end;

É isso ai pessoal!. A única observação importante, é que se o arquivo for muito grande, coisa de mais de 150.000 linhas, vale apenas ler direto do disco (com TextFile) ao invez de colocar num StringList. Mas nesse código mudaria apenas o primeiro StringList.



A CodeGear anunciou no último dia 25 o Delphi 2009. Eu estou muito empolgado com esse lançamento, são muitas novidades principalmente com relação a VCL que traz novos componentes com um visual perfeito para quem gosta do Windows Vista e o DataSnap que está recheado de novos recusrsos, atendendo ai a pedidos de todos nós.

Agora é só aguardar a liberação da versão trial que deve sair em breve.

Segue um ScreenShot para dar uma água na boca da galera.