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.

Preview Tiburón

No próximo dia primeiro às 11h (horário de Brasília), a CodeGear/Embarcadero fará um evento on-line para apresentar um preview do Tiburón (Delphi) e C++ Builder. Vale apena conferir, segue alguns tópicos do que será bordado no preview:

- Novos componentes da VCL
- Novos recursos da linguagem
- Novo DataSnap

As inscrições podem ser feitas pelo site: http://latam.codegear.com/br/tiburonpreview

Vamor participar galera!

Bate papo com CEO da CodeGear Jim Douglas e CEO da Embarcadero Wayne Williams

Olá pessoal, venho trazer boas notícias, depois de uma semana de muita especulação acerca do nosso futuro (comunidade delphi), será promovido no próximo dia 22, um bate papo com Jim Douglas e Wayne Williams Ceo's da CodeGear e Embarcadero, e os membros da comunidade CodeGear.
Essa é a hora de tirarmos todas as nossas dúvidas, portanto não percam tempo! façam a pré-inscrição no link http://borland.interwise.com/borland/iSeminar/RN1890/ e mandem suas perguntas.

As perguntas podem ser feitas (em inglês) antecipadamente envindo para o e-mail do David I davidi@codegear.com com o assunto "Question for the CEOs community chat"

É isso pessoal, vamos participar!

Abraço a todos

Embarcadero Technologies® Compra Code Gear

Olá amigos,

Nesta quarta feira, dia 07 de maio de 2008, li uma notícia que a principio me deixou preocupado, a noticia da conta de que a Embarcadero tecnologies estava acertanto a compra de ativos com a Borland Software Corporation para adquirir sua divisão CodeGear. Imediatamente entrei em contato com o meu amigo Bruno Lichot (CodeGear Product Evangelist), que imediatamente me posicionou dos fatos.
Logo, o que no inicio era uma preocupação, virou motivo de festa. Com essa "mudança", a Embarcadero passa a ser o maior fornecedor independentes de plataforma para o design, o que torna a nossa IDE mais sólida do que nunca.

Veja a carta de David I à Comunidade de Desenvolvedores CodeGear

Aprendendo com os Mestres

Pessoal essa semana encontrei um material muito bom, que é o materia do CodeRage II realizado em novembro de 2007, este que é um evento parecido com o que tivemos aqui (Delphi Day OnLine), tem um material de primeira linha só com feras como Marco Cantu, Nick Rodges e Cia, os vídeos, claro, estão todos em inglês mas vejo isso como uma oportunidade para praticarmos! rsrs

Ai segue o Link e espero que todos disfrutem dessa dica!

http://video.codegear.com/CodeRageIIArchives/

Abraço a todos!