Delphi for all

DUG-SP - Delphi Users Group São Paulo

2008-10-13T12:27:00.000-07:00

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

2008-09-11T13:07:00.000-07:00

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

2008-09-10T18:49:00.000-07:00

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

2008-09-02T13:30:00.000-07:00

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

2008-08-29T07:57:00.001-07:00

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

2008-08-28T12:16:00.000-07:00

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.

2008-08-27T16:17:00.000-07:00

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

2008-07-26T06:18:00.000-07:00

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

2008-05-18T10:24:00.000-07:00

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

2008-05-07T18:17:00.000-07:00

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

2008-03-19T18:20:00.000-07:00

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!

Mini Cidade Delphi Brasil

2008-01-20T16:50:00.001-08:00

Pessoal, essa semana eu criei a mini cidade Delphi Brasil, a ideia de criar essa mini-cidade é ver o quanto a comunidade delphi no Brasil é grande, quanto mais pessoas clicarem no link mais a cidade crescerá, e isso nos dará um "dimensão" do tamanho da comunidade. Lá existe uma espécie de mural! deixem um recado pra comunidade lá!, vamos mostrar como a comunidade é grande!
Veja como está a cidade hoje:

http://delphibrasil.myminicity.com/ - Entrar na Cidade
http://delphibrasil.myminicity.com/ind - Criar uma Indústria

Vamos fazer a cidade crescer.

DataSnap Dinâmico

2008-01-15T07:14:00.000-08:00

Pessoal, gostaria de dar destaque para um artigo que saiu na edição 47 da Active Delphi, esse que é uma espécie de "repescagem" para queles que não tiveram a oportunidade de ir na Borcon 2007. É o artigo do nosso amigo Marcos Barreto (mrbar2000 da lista NDDV).
O cara conseguiu revolucionar o que já era uma revolução, que é o desenvolvimento n-tier, mas de forma dinâmica. Confesso que no inicio imaginei que seria mais dispendioso, e que perderia o desenvolvimento RAD, mas quando vi a implementação das classes, percebi que é muito simples tanto a implementação quanto a manutenção.

Veja quais são as vantagens dessa técnica:

Não precisamos mais ficar nos aborrecendo com tanta Query e Provider espalhados pelo RDM.
Não é necessário se preocupar mais com a trabalheira dana em criar RDM's filhos e ter que configurar a TypeLibrary para que os SharedConnections enxerguem os RDM's filhos. (essa é melhor de todas rsrs, pelomenos pra nós)
Consumo de memória reduzido em 90% ou mais.
Facilidade na migração dos componentes de acesso a dados (já que é tudo dinâmico).
Facilidade em mudar a técnologia de acesso.
RN's (Regras de negócio) bem encapsuladas.
Facilidade de modulariação do Servidor de Aplicação

Além do artigo, uma ótima dica também, é baixar o material da Borcon que pode ser encontrado no link http://cc.codegear.com/Item/25225

Parabéns Marcos!

Evitando Lookup's

2008-01-02T02:19:00.000-08:00

Olá pessoal, para aqueles que utilizam campos lookup's para exibir num DBGrid a descrição de uma chave estrangeira, resolvi postar aqui um exemplo utilizando uma técnica que visa evitar esse tipo de campo, melhorando e muito na performance da sua aplicação. Vale a pena dar uma conferida.

Trata-se de uma tela de pedidos/vendas, onde o usuário insere os produtos utilizando o próprio DBGrid, recuperando a descrição do produto utilizando um JOIN entre as tabelas, a parti dai, basta adicionar os fields e alterar todas as ProviderFlags do TField do campo "externo" para false, para que ele não entre na montagem do updade.

Clique aqui para baixar o exemplo

Delphi Day onLine – Palestras disponíveis

2007-12-14T09:51:00.000-08:00

No último dia 7 aconteceu o CodeGear Delphi Day em Português, um dia inteiro de palestras, onde foram abordados os seguintes temas:

As principais razões para migrar de Delphi 7 para RAD Studio 2007 (Andreano Lanusse)
Generics em RAD Studio 2007 (Manoel Edésio)
Utilizando dbExpress 4 Framework (Bruno Lichot)
Blackfish SQL sem limites para stored procedures e triggers em Delphi (Leonel Togniolli)
Desenvolvendo Aplicações WEB com ASP.NET, AJAX e RAD Studio 2007 (Andreano Lanusse )
Melhorando a qualidade de suas aplicações em Delphi (Ricardo Barbieri)
ECO IV e RAD Studio 2007 (Adilson Jr.)

Quem não teve oportunidade (assim como eu (-;) pode baixar as palestras no link http://dn.codegear.com/article/37460

Bom proveito a todos!

Exemplo para iniciantes

2007-12-13T09:14:00.000-08:00

Pessoal, coloquei disponível para download um exemplo simples para inciante, onde abordei técnicas como Herança Visual, Actions, Pesquisa Incremental, etc.

Clique Aqui para fazer o Download

Não deixem de comentar o exemplo.

Abraço a todos.

Cobertura da Borland Conference Revolutions

2007-11-24T03:20:00.000-08:00

Pessoal a cobertura completa do que aconteceu na Borcon 2007 pode ser vista no link http://info.borland.com.br/borcon07/cobertura_borcon.html, lá você pode baixar o material das palestras, visualizar a fotos além de depoimentos de quem participou. Boa leitura!

Função para retornar os dias úteis

2007-11-20T05:12:00.001-08:00

Pessoal, a medida em que eu tiver tempo (-:, vou postar aqui funções que considero interessantes para o nosso dia-a-dia. A primeira que vou postar aqui é uma para contar os dias úteis em um intervalo de datas. Temos várias funções desse tipo na interne, mas eu achava os algoritimos muito complicados, então resolvi fazer a minha. Chegei a publicar ela no ActiveNews da ActiveDelphi, pra que não viu ai está.

function Dias_Uteis(DataI, DataF:TDateTime):Integer;
var
 contador:Integer;
begin
 if DataI > DataF then
 begin
   result  := 0;
   exit
 end;
 Contador := 0;
 while (DataI <= DataF) do
 begin
   if ((DayOfWeek(DataI) <> 1) and (DayOfWeek(DataI) <> 7)) then
     Inc(Contador);
   DataI := DataI + 1

 end;
 result := Contador;
end;

São apenas dois argumentos, Data Inicial e Data Final, a idéia é fazer um looping enquanto a data inicial for menor que a data final, a partir dai vamos incrementando a data inicial e verificamos se é um sábado ou domingo com a função DayOfWeek, se não for, contamos 1 dia. Simples não?

Depois vamos melhorar essa função permitindo que ele suporte feriados. Até lá!

Developer Conference (BorCon 2007) - Apresentações disponíveis para download

2007-11-19T06:44:00.000-08:00

Para aqueles que estavam ansiosos, já está disponível para download, todo o material da Borcon. Como eu não perco tempo, já estou desfrutando de toda essa massa de conhecimento!.
Aproveitem! http://dn.codegear.com/br/article/37375

StringOfChar, replicando caracteres.

2007-11-09T04:38:00.000-08:00

Pessoal, essa é mais um funçãozinha muito interssante e muitos não conhecem. A sua utilidade é replicar um determinando caracter e sua sintaxe é muito simples, contendo apenas dois argumentos.

function StringOfChar(ch: AnsiChar; Count: Integer): AnsiString; overload;

ch - Caracter a ser replicado.
Count - Número de ocorrências

Exemplo:

procedure TForm1.Button1Click(Sender:TObject);
begin
ShowMessage(StringOfChar('*',20)+#13+'Atenção ocorreu um erro'+#13+StringOfChar('*',20));
end;

Abraços, e até a próxima!

Polimorfismo não é bicho de sete cabeças!

2007-11-08T15:36:00.000-08:00

É interessante como a POO em geral é um paradigma para muitos. Depois de muitos anos já se falando sobre o assunto, muitos ainda a tratam como um "TABÚ".
Normalmente, aqueles que "nasceram" na programação estruturada tem uma dificuldade maior para entender o conceito (ou filosofia, como alguns gostam de chamar).

Mas o fato é que não existe nenhum mistério, e posso garantir que os benefícios são muitos. E das possibilidades apresentadas pela POO, sem dúvida a que mais me fascina é o POLIMORFISMO.

A descrição mais usada para ele é a possibilidade que determinado objeto tem para assumir comportamentos diferentes dependendo da necessidade.

Eu vou exemplificar aqui os benefícios e ao mesmo tempo mostrar que não existe nenhum bicho de sete cabeças no polimorfismo.

Abra um novo projeto no delphi, salve com o nome de Polimorfismo.dpr, o form com o nome de uFrmMain.

Vamos incluir uma nova unit para criar a nossa classe. Para isso vá em File/New/Unit salve com o nome de uCalculadora e implemente a unit como a listagem abaixo:

unit uCalculadora;

interface

uses SysUtils;

type
TCalculadora = class
public

function Calcular (ValueA, ValueB:Real): Real; virtual; abstract;
end;

TMultiplicar = class(TCalculadora)
public
function Calcular (ValueA, ValueB:Real): Real; override;
end;

TSomar = class(TCalculadora)
public
function Calcular (ValueA, ValueB:Real): Real; override;
end;

TSubtrair = class(TCalculadora)
public
function Calcular (ValueA, ValueB:Real): Real; override;
end;

TDividir = class(TCalculadora)
public
function Calcular (ValueA, ValueB:Real): Real; override;
end;

implementation

{ TMultiplicar }

function TMultiplicar.Calcular(ValueA, ValueB: Real): Real;
begin
Result := ValueA * ValueB;
end;

{ TSomar }

function TSomar.Calcular(ValueA, ValueB: Real): Real;
begin
Result := ValueA + ValueB;
end;

{ TSubtrair }

function TSubtrair.Calcular(ValueA, ValueB: Real): Real;
begin
Result := ValueA - ValueB;
end;

{ TDividir }

function TDividir.Calcular(ValueA, ValueB: Real): Real;
begin
try
Result := ValueA / ValueB;
except on E: Exception do
begin
if Pos('BY ZERO', UpperCase(E.Message)) > 0 then
Raise Exception.Create('Não é permitido divisão por zero.');
end;
end;
end;

end.

Primeiro criamos uma classe com o nome de TCalculadora com um método chamado Calcular, observe a que definimos o método com o tipo virtual e com a diretiva abstract indicando que o método não será implementado na classe em que foi declarado.

Em seguida criamos 4 classes (TMultiplicar, TSomar, TSubtrair, TDividir) , todos elas descendem de TCalculadora e tem o método calcular (exatamente igual ao método da classe TCalculadora) com a diretiva override (sebrecarga) garantindo que o método tenha apenas a implementação da classe descendente sobrepondo a implementação da classe base.

Depois implementamos o método de cada classe conforme a operação. Agora vamos criar o exemplo de utilização dessas classes.

No FrmMain coloque os seguintes componentes: 3 Edits; 1 Button e um RadioGroup.
Adicione ao RadioGroup 3 itens (Somar, Multiplicar, Subtrair,Dividir), altere a propriedade ItemIndex para 0 (Zero).

Posicione os componentes conforme a figura abaixo:

Implemente o botão calcular conforme a listagem abaixo:

procedure TFrmMain.Button1Click(Sender: TObject);
var
Calculadora: TCalculadora;
begin
case RadioGroup1.ItemIndex of
0: Calculadora := TSomar.Create;
1: Calculadora := TMultiplicar.Create;
2: Calculadora := TSubtrair.Create;
3: Calculadora := TDividir.Create;
end;
Edit3.Text := FloatToStr(Calculadora.Calcular(StrToFloatDef(Edit1.text,0),StrToFloatDef(Edit2.text,0)));
end;

Criamos uma variável com o tipo da nossa classe base (TCalculadora) depois CRIAMOS com o tipo da classe descendente correspondente a operação que desejamos. Percebam que chamamos o método Calcula do nosso objeto sem nos preocupar com a implementação.

Download do exemplo

Como vocês podem ver não existem mistérios! não deixem de comentar esse post! até a próxima!

ExtractStrings: Você conhece?

2007-11-07T04:19:00.000-08:00

Pessoal, resolvi começar a postar aqui, funções do delphi que normalmente quebram muitos galhos, e, por desconhece-las, acabamos "rebolando" pra criar algo "parecido". E não pensem que não estou falando de mim! :)

Uma função muito interessante e que tem uma enorme utilidade é a função ExtracStrings. Essa função preenche uma lista (StringList), com substrings de uma string.

Imagine que você precise ler um arquivo CSV (separado por ponto-e-vírgula). Dai você pergunta: "Como vou separar as colunas?"; a primeira idéia é criar uma função para localizar (Pos) o primeiro ponto-e-vírgula e extrair o fragmento da string (Copy), e assim sucessivamente, atire a primeira pedra que nunca fez assim!

Pois é! Perdemos nosso precioso tempo reinventando a roda.

Veja a sintaxe da função ExtractString:

function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;

Separator - É um array onde você pode definir vários separadores
WhiteSpace - É um Array onde você define os caracteres que devem ser Ignorados quando ocorrerem no inicio da String.
Content - É a String de onde se deseja extrais as substrings

A Função retorna o número de Substrings extraídas.

Veja um pequeno exemplo de utilização:

procedure TForm1.Button1Click(Sender: TObject);
const
SDados = 'Cristiano Martins Alves; 28 Anos; Casado; São Paulo; SP';
var
Lista: TStringList;
iRetorno:Integer;
begin
Lista := TStringList.Create;
try
iRetorno := ExtractStrings([';'],[' '],PChar(sDados),Lista);
if iRetorno > 0 then
ShowMessage(Lista.Text);
finally
FreeAndNil(Lista);
end;
end;

Veja o resultado:

Repare que na nossa constante existe um espaço entre o nome e a idade, mas ele foi ignorado conforme definido no segundo parâmetro.

É isso ai pessoal! Não deixem de comentar o blog!

Controlar a exibição do ScrollBar do DBGrid

2007-11-06T02:43:00.000-08:00

Muitas vezes ficamos incomodados com aquele ScrollBar que teima em aparecer mesmo que o DBGrid tenha apenas 1 ou 2 linhas.

Por causa desse incômodo que resolvi pesquisar até chegar a seguinte solução.

Coloque no evento onDrawColumnCell do seu DBGrid

procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (TStringGrid(DBGrid1).RowCount-1) then //Se tiver menos de 10 linha
ShowScrollBar(DBGrid1.Handle,SB_VERT,False); //Remove barra Vertical
end;

É claro que você deve melhorar a lógica, como por exemplo achar o número de linhas (exibidos sem ScrollBar) dependo da altura do DBGrid.

Fonte: ActiveDelphi

Como retornar múltiplos resultados numa função?

2007-10-20T08:18:00.000-07:00

Você já teve a necessidade de retornar múltiplos valores numa função? normalmente a primeira idéia é criar uma procedure com parâmetros passados por referência como abaixo:

procedure GetCalculo(const Valor1, Valor2:Double; var Soma, Media:Double);
begin
Soma := Valor1 + Valor2;
Media := Soma / 2;
end;

//Testando
procedure TForm1.Button1Click(Sender: TObject);
var
Soma, Media:Double;
begin
GetCalculo(100,50,Soma,Media);
ShowMessage('Soma: '+FloatToStr(Soma)+#13+'Media: '+FloatToStr(Media));
end;

Isso funciona perfeitamente, mas veja que precisei declarar as funções que vou receber. Agora imagina se fosse 10 valores no retorno! além da procedure ficar imensa você ainda teria que declarar as variáveis que seriam passadas como referência. Uma técnica mais elegante de fazer isso é criar um record e usar esse tipo na nossa função. Veja o exemplo acima alterado.

//definindo o tipo
type
TCalculo = record
Soma,
Media:Double;
end;

Form1 = Class(TForm)
...

implemetation

function TForm1.GetCalculo(const Valor1, Valor2:Double):TCalculo;
begin
//Repare que o result agora pode receber vários resutados
Result.Soma := Valor1 + Valor2;
Result.Media := Result.Soma / 2;
end;

//Testando
procedure TForm1.Button1Click(Sender: TObject);
var
Calculo: TCalculo;
begin
Calculo := GetCalculo(100,50);
ShowMessage('Soma: '+FloatToStr(Calculo.Soma)+#13+'Media: '+FloatToStr(Calculo.Media));
end;

Com eu falei, não existe muita diferença nessa técnica com a passagem por parâmetros se considerarmos o número de parâmetros, mas com certeza numa função que retorna vários resultados, a segunda opção tornará o seu código muito mais legível e elegante. Até a próxima.

Função para validar CPF no SQL Server

2007-10-20T05:41:00.001-07:00

/*
Cristiano Martins Alves
Para testar: SELECT DBO.CPF_VALIDO('16195473247')
*/
CREATE FUNCTION CPF_VALIDO(@CPF VARCHAR(11))
RETURNS CHAR(1)
AS
BEGIN
DECLARE @INDICE INT,
@SOMA INT,
@DIG1 INT,
@DIG2 INT,
@CPF_TEMP VARCHAR(11),
@DIGITOS_IGUAIS CHAR(1),
@RESULTADO CHAR(1)

SET @RESULTADO = 'N'

/*
Verificando se os digitos são iguais
A Principio CPF com todos o números iguais são Inválidos
apesar de validar o Calculo do digito verificado
EX: O CPF 00000000000 é inválido, mas pelo calculo
Validaria
*/

SET @CPF_TEMP = SUBSTRING(@CPF,1,1)

SET @INDICE = 1
SET @DIGITOS_IGUAIS = 'S'

WHILE (@INDICE <= 11)
BEGIN
IF SUBSTRING(@CPF,@INDICE,1) <> @CPF_TEMP
SET @DIGITOS_IGUAIS = 'N'
SET @INDICE = @INDICE + 1
END;

--Caso os digitos não sejão todos iguais Começo o calculo do digitos
IF @DIGITOS_IGUAIS = 'N'
BEGIN
--Cálculo do 1º dígito
SET @SOMA = 0
SET @INDICE = 1
WHILE (@INDICE <= 9)
BEGIN
SET @Soma = @Soma + CONVERT(INT,SUBSTRING(@CPF,@INDICE,1)) * (11 - @INDICE);
SET @INDICE = @INDICE + 1
END

SET @DIG1 = 11 - (@SOMA % 11)

IF @DIG1 > 9
SET @DIG1 = 0;

-- Cálculo do 2º dígito }
SET @SOMA = 0
SET @INDICE = 1
WHILE (@INDICE <= 10)
BEGIN
SET @Soma = @Soma + CONVERT(INT,SUBSTRING(@CPF,@INDICE,1)) * (12 - @INDICE);
SET @INDICE = @INDICE + 1
END

SET @DIG2 = 11 - (@SOMA % 11)

IF @DIG2 > 9
SET @DIG2 = 0;

-- Validando
IF (@DIG1 = SUBSTRING(@CPF,LEN(@CPF)-1,1)) AND (@DIG2 = SUBSTRING(@CPF,LEN(@CPF),1))
SET @RESULTADO = 'S'
ELSE
SET @RESULTADO = 'N'
END
RETURN @RESULTADO
END

Dica: Permitir apenas uma instância da aplicação.

2007-10-19T17:33:00.000-07:00

As vezes necessitamos limitar a abertura de apenas uma instância da nossa aplicação. O objetivo aqui é demonstrar como fazer isso:

Abra o fonte do seu arquivo DPR e adicione na uses as seguintes units:

uses
System, Windows,
...

E codifique como o exemplo abaixo

var
Instancia: THandle;
begin
Instancia:= CreateMutex(nil, false, 'InstanciaIniciada');
if WaitForSingleObject(Instancia, 0) = wait_Timeout then
begin
Application.MessageBox('Atenção o programa já está aberto!.','Atenção',MB_ICONINFORMATION);;
Exit;
end;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

Nesse exemplo criamos um objeto do tipo THandle chamado instancia, em seguida instanciamos o objeto com o nome da nossa janela (InstanciaIniciada), a apartir dai verificamos se já existe uma instância rodando com WaitForSingleObject, caso exista exibimos a mensagem para o usuários e fechamos a aplicação.

Dica: Utilizar formatos diferentes no FormatFloat

2007-10-19T09:24:00.000-07:00

Muitas vezes temos a necessidade de formatos diferentes para números POSITIVOS e NEGATIVOS. O que pouca gente sabe é que o FormatFloat faz isso pra nós! Podemos passar no parâmetro format, uma string com os dois formatos separados por ; (ponto e vírgula)
veja:

ShowMessage(FormatFloat('R$ 0.00,;"("R$ 0.00,")"',-1500)); //Número negativo entre parênteses
ShowMessage(FormatFloat('R$ 0.00,;R$ 0.00,-',-1500)); //Número negativo com sinal a direita
ShowMessage(FormatFloat('R$ 0.00,;R$ 0.00,-',1500)); //Número positivo

Dica: Form sem barra de títulos. Utilizando API

2007-10-19T08:04:00.000-07:00

Muitas vezes precisamos de um form sem barra de títulos quando a idéia é apenas exibir uma informação ao usuário. Sabemos que se alterarmos a propriedade BorderStyle para none conseguimos esse efeito, no entanto o visual não é muito bom, o form fica com uma aparência FLAT e nem sempre é o que queremos (a menos que seja um Splash).

Crie um novo projeto no delphi, coloque o Label e defina as seguintes propriedades:
Align: alClient
Alingment: taCenter
Layout: tlCenter

Seu form deve se parecer com este

Deixe o form com o tamanho que desejar. E no evento onCreate coloque.

procedure TForm1.FormCreate(Sender: TObject);
begin
{Removendo Barra de tírulos}
SetWindowLong(Handle,GWL_STYLE, GetWindowLong(Handle, GWL_STYLE ) and not WS_CAPTION);
end;

Veja a diferença entre as duas técnicas

Utilizando a API

Utilizando BorderStyle = bsNone

Para mais informações sobre a API acesse: http://msdn2.microsoft.com/en-us/library/ms633591.aspx