Uma breve história do Delphi


Segue abaixo um vídeo com uma breve história do Delphi.

É aconselhável o uso de fones de ouvido para um melhor aproveitamento do som.



Postado por: js às 19h10
| envie esta mensagem [link]



A origem do nome "DELPHI"


A pedidos, segue um pouco da história do Delphi

"Delphi" começou como codinome de um projeto altamente secreto na Borland: uma nova geração de ambiente de desenvolvimento visual para Windows, baseado na linguem de programação Object Pascal. Este codinome foi lançado em meados de 1993, após a equipe de desenvolvimento ter passado 6 meses de pesquisas, testes e análise de marketing. Integrantes da equipe de desenvolvimento Pascal ficavam se reunindo no escritório do Gerente de desenvolvimento Gary Whizin, para debater possíveis nomes para o novo produto. Não era um escritório muito grande, mas a equipe não era tão grande também - cerca de 10 pessoas entre gerentes, analistas, marketing.

Era comum ver Anders Heilsberg, Chuck Jazdzewski, Allen Bauer, Zack Urlocker, Richard Nelson, eu, e diversas outras pessoas batendo papo na sala do Gary. Nas sessões de discussão sobre o codinome havia gente se espremendo nos corredores.

A Borland tem uma longa tradição em criar codinomes "diferentes", alguns como slogans "inteligentes" ou imagem que o relacionava ao marketing e ao foco do produto. Um codinome, como é chamado o nome do produto beta, não deve ter nenhuma relação óbvia com o produto, para que caso algum espião ouça o seu nome numa conversa não fique tão óbvio qual produto estão discutindo.

Nós estavamos sempre sentados no escritório do Gary sugerindo estranhos e esquisitos codinomes para o produto. A decisão estratégica de tornar as ferramentas de banco de dados e a conectividade parte central do novo produto Pascal, tinha sido feita apenas alguns dias antes. Então Gary estava ansioso para ter um codinome que indicasse o novo "foco" de banco de dados. O tema banco de dados não foi passageiro - eu me lembro de ser relutante em "poluir" as ferramentas Pascal com este tema. Foi um passo arriscado para a Borland, mas tudo foi muito planejado e implementado. Por outro lado, tornar o Delphi um produto para banco de dados era exatamente o que faltava para impulsionar as ferramentas Pascal da Borland sobre o mercado "fechado" do Visual Basic e C++, e colocar o Delphi em destaque entre as tradicionais ferramentas de desenvolvimento para Windows.

Gary insistia no codinome "Oracle", referindo-se a conectividade com os servidores de banco de dados. Entretanto, este nome não agradou ao grupo. Além da confusão óbvia com a empresa Oracle e produtos para servidores, este nome obrigava o Delphi a ter recursos de servidor, enquanto, o produto que estavamos desenvolvendo era uma ferramenta de criação de programas para o cliente, simplesmente um método se se comunicar com o Oracle e outros servidores de banco de dados.

Como você conversa com um "oracle" ? "The Oracle at Delphi" foi a associação de frase que surgiu na minha cabeça. Então, eu sugeri "Delphi": Se você quer conversar como o Oracle, então vá para o Delphi.

A sugestão não "pegou" de primeira. Esse era um nome velho, um lugar antigo, um templo pagão nas ruinas de uma civilização extinta. Não era exatamente uma brilhante associação para um novo produto! Apesar disso tudo, o codinome "Delphi" ainda era bem melhor do que os nomes absurdos que eram criados naquela sala. O Pascal é uma linguagem de programação clássica, o que combina direito com a clássica figura Grega. E como os mitologistas Gregos dizem, o templo de Delphi era o menos incestuoso, assassino e polêmico da história Grega.

Nós passamos por diversos codinomes durante o desenvolvimento da versão 1.0, apresentando diferentes codinomes a cada apresentação corporativa ou entrevistas do produto beta. Esta era uma estrategia de limitar os rumores e identificar os possíveis furos de informações. A última coisa que gostaríamos era que, você sabe quem!, obter informações do que estavamos fazendo. Após todos estes codinomes, o nome Delphi "embalou". No final da etapa de desenvolvimento, o departamento de marketing começou a utilizar o codinome Delphi em todas as apresentação a imprensa e empresas, e também como codinome para as versões betas finais. Isto despertou diversos rumores entre as pessoas, e a industria de software só falava no projeto secreto da Borland de codinome "Delphi". J.D. Hildebrand escreveu um editorial inteiro na revista Windows Tech Journal sobre o "Efeito Delphi", meses antes do software ser lançado no mercado. Ele dizia: "Não posso dizer o que é, mas posso dizer isto: o Delphi irá transformar nossas vidas.".

Quando chegou a hora de escolher um nome definitivo para o produto, os nomes possíveis eram menos inspiradores do que "Delphi". O nome "funcional", ou seja, um nome que descreva o que o produto realmente faz e, por sua vez, é muito mais fácil de divulgar, seria "AppBuilder". Esse nome ainda aparece em classes internas do código do IDE, como por exemplo o nome da classe da janela principal. Mas o nome AppBuilder não animava as pessoas. Não funcionava bem para outros países - somente era "funcional" na língua inglesa.

Ainda bem que alguns meses antes do Delphi ser lançado, a Novell criou um produto chamado Visual AppBuilder. Pelo menos essa opção estava fora do páreo. Sem um nome "funcional", muitas pessoas sugeriram manter o codinome Delphi para o nome final do produto.

O nome Delphi ainda não estava definido. O chefe do departamento de marketing tinha ínumeras preocupações com o esforço extra que seria necessário para a divulgação, no mercado, de um nome não-funcional. Então ele pediu que fosse feita uma votação entre os desenvolvedores. Somente teve um voto contra (Advinhe de quem?). Mas alguém chegou a conclusão que a equipe de desenvolvimento não possuia uma visão estratégica de mercado, e organizaram uma pesquisa com os usuários betas. Quando esta pesquisa não produziu o resultado que gostaria, ela foi estendida para as subsidiárias internacionais da Borland, analistas de mercado, imprensa, consultores de empresas, revendas, e provavelmente alguns clientes do K-Mart. Isto virou uma comédia: quanto mais as pessoas queriam abolir o nome "Delphi", mais ele ganhava apoio.

"Delphi" tem uma imagem clássica. Possui uma associação consistente em diferentes idiomas. Não significa palavrões em nenhuma outra língua (que eu saiba). Além de tudo, o pessoal do departamento de marketing realizou um excelente trabalho de pre-divulgação sobre o Delphi. O mercado foi abençoado pelo nome "Delphi".

E foi assim que o Delphi ganhou um nome

 

Retirado do DTS LoydSoft



Postado por: js às 10h46
| envie esta mensagem [link]



Validação de CNPJ


Para verificar se um CNPJ é válido, é só usar o código abaixo:

 

function cgc(num: string): boolean;
var
  n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12: integer;
  d1,d2: integer;
  digitado, calculado: string;
begin
  n1:=StrToInt(num[1]);
  n2:=StrToInt(num[2]);
  n3:=StrToInt(num[3]);
  n4:=StrToInt(num[4]);
  n5:=StrToInt(num[5]);
  n6:=StrToInt(num[6]);
  n7:=StrToInt(num[7]);
  n8:=StrToInt(num[8]);
  n9:=StrToInt(num[9]);
  n10:=StrToInt(num[10]);
  n11:=StrToInt(num[11]);
  n12:=StrToInt(num[12]);
  d1:=n12*2+n11*3+n10*4+n9*5+n8*6+n7*7+
      n6*8+n5*9+n4*2+n3*3+n2*4+n1*5;

  d1:=11-(d1 mod 11);

  if d1>=10 then
    d1:=0;

  d2:=d1*2+n12*3+n11*4+n10*5+n9*6+n8*7+
      n7*8+n6*9+n5*2+n4*3+n3*4+n2*5+n1*6;

  d2:=11-(d2 mod 11);

  if d2>=10 then
    d2:=0;

  calculado:=inttostr(d1)+inttostr(d2);
  digitado:=num[13]+num[14];

  if calculado=digitado then
    cgc:=true
  else
    cgc:=false;
end;

 

 E validar um código de barras você sabe?



Postado por: js às 19h46
| envie esta mensagem [link]



Validação de CPF


Para verificar se um CPF é válido, é só usar o código abaixo:

 

function cpf(num: string): boolean;
var
  n1,n2,n3,n4,n5,n6,n7,n8,n9: integer;
  d1,d2: integer;
  digitado, calculado: string;
begin
  n1:=StrToInt(num[1]);
  n2:=StrToInt(num[2]);
  n3:=StrToInt(num[3]);
  n4:=StrToInt(num[4]);
  n5:=StrToInt(num[5]);
  n6:=StrToInt(num[6]);
  n7:=StrToInt(num[7]);
  n8:=StrToInt(num[8]);
  n9:=StrToInt(num[9]);
  d1:=n9*2+n8*3+n7*4+n6*5+n5*6+n4*7+n3*8+n2*9+n1*10;
  d1:=11-(d1 mod 11);

  if d1>=10 then
    d1:=0;

  d2:=d1*2+n9*3+n8*4+n7*5+n6*6+n5*7+n4*8+n3*9+n2*10+n1*11;
  d2:=11-(d2 mod 11);

  if d2>=10 then
    d2:=0;

  calculado:=inttostr(d1)+inttostr(d2);
  digitado:=num[10]+num[11];

  if calculado=digitado then
    cpf:=true
  else
    cpf:=false;
end;



Postado por: js às 19h44
| envie esta mensagem [link]



Video para Experts


Vídeo apresentando o Delphi 2009,

É em inglês, mas é muito bom.

http://video.codegear.com/Tiburon/...



Postado por: js às 20h41
| envie esta mensagem [link]



Vídeo aula para iniciantes


Como inserir e editar componentes na tela:

Você tem algum vídeo que gostaria de postar? É só mandar que eu coloco.



Postado por: js às 20h18
| envie esta mensagem [link]



Você sabe fazer um form redondo ?


Altere a propriedade BorderStyle do Form para "bsNone".

No create do form coloque o seguinte código:

procedure TForm1.FormCreate(Sender: TObject);

var

  hR : THandle;

begin

  {cria um form de formato redondo}

  hR := CreateEllipticRgn (0,0,Width,Height);

  SetWindowRgn (Handle,hR,True);

end;



Postado por: js às 19h33
| envie esta mensagem [link]



2ª Dica

Para aqueles que gostam de atalhos, segue uns muito úteis para usar na IDE do Delphi:

Ctrl+Shift+I: Indentar multiplas linhas de código de uma única vez em "n" espaços (conforme o que estiver especificado em Tools/Editor Options/General/Block Indent).

Ctrl+Shift+U: Recuar indentação em "n" espaços (ídem acima).

Ctrl+Shift+0 a 9: Inserir um Bookmark no editor de código.

Ctrl+0 a 9: troque n pelo número do Bookmark.

Ctrl+Shift+0: para desmarcar um Bookmark.

Alt+G: Ir para uma determinada linha.

Ctrl+Shift+Seta (cima/baixo): Intercala entre o cabeçalho da procedure/função e a implementação da mesma.

Ctrl+Shift+C: Complementacao de Classes.

Ctrl+Shift+Up: Vai para a seção interface.

Ctrl+Shift+Down: Vai para a seção implementation.

Ctrl+Mouse: Clique com o botão esquerdo do mouse mantendo pressionada a tecla Ctrl sobre a chamada a uma procedure/function/variável para localizá-la na unit atual ou em outra unit.

Ctrl+J (Code Templates): Exibi templates de códigos.

Ctrl+O+U: Alterna a caixa (maiúscula/minúscula) do código selecionado.

Ctrl+K+E: Converter o código selecionado para minúsculas.

Ctrl+K+F: Converter o código selecionado para maiúsculas.

Ctrl+E: Ativa a busca incremental. Sem a necessidade de teclar (Ctrl+F).

Ctrl+Shift+Setas: Mover o(s) componente(s) selecionado(s) rapidamente no form.

Ctrl+Setas: Move o componente pixel a pixel.

Shift+Setas: Redimensiona o componente pixel a pixel.

E alguém sabe algum outro atalho?



Postado por: js às 19h09
| envie esta mensagem [link]



1º Dica:

Sabe como fazer um "bipe" no computador?

É fácil, é só colocar

messageBeep(0);

 E tocar uma música você sabe?



Postado por: js às 21h07
| envie esta mensagem [link]



INTRODUÇÃO


Este blog foi criado com o intuito de mostrar dicas e truques utilizando a linguagem Object Pascal, atualmente conhecida como Delphi Language, para auxiliar no aprendizado desta linguagem de programação.

Nos próximos posts estarei disponibilizando mais algumas dicas e truques.

Também aceito sugestões, é só pedir que eu posto.

Até breve.



Postado por: js às 20h50
| envie esta mensagem [link]




BRASIL, RIO GRANDE DO SUL,
Sul, Homem, de 26 a 35 anos,
Portuguese, English,
Motos, Automóveis e
Source Codes
.:: Humor ::.


.:: Outros ::.


.:: Histórico ::.

26/10/2008 a 01/11/2008
28/09/2008 a 04/10/2008
21/09/2008 a 27/09/2008
14/09/2008 a 20/09/2008
07/09/2008 a 13/09/2008

.:: Links ::.

Site Oficial - Delphi
Planeta Delphi
Active Delphi
Clube Delphi

.:: Votação ::.

Dê uma nota para meu blog

.:: Indicação ::.

Clique aqui para me indicar

.:: Contador ::.


XML/RSS Feed
Leia este blog no seu celular

.:: Créditos ::.

.:: Layout: Thomoeda ::.



Todos os direitos
reservados ©
___________