Dicas para Delphi

E ae pessoal?? Como vão as férias??

Bom, as minhas vão como todos os dias do ano (mais chatas até)... Acordar cedo, ir pro trabalho, sair às 18:00h, e ir pra casa não fazer nada... ¬¬ ... superlegal

Mas vamos ao que interessa (para alguns) rsrsrs
Vou começar uma série de dicas de programação, que pode não servir pra nada, mas vai fazer seus programas ficarem mais "bonitinhos"... rsrs...

A primeira dica será:

#001 - Pegar a data e a hora do sistema.

* A primeira coisa a fazer, é colocar um componente TIMER (guia SYSTEM) no formulário.



* Agora, baixe para o form, um componente EDIT e um LABEL (guia STANDARD), seu form ficará como o form abaixo.


* Agora, clique no Timer, e no seu evento OnTimer, digite o seguinte código:

procedure TForm1.Timer1Timer(Sender: TObject);
var Tempo :TDateTime;
begin
Tempo:=now;
Edit1.Text:=DateToStr(Tempo);
Label1.Caption:=TimeToStr(Tempo);
end;

* Pronto... agora é só apertar F9 e tcharammmm... no EDIT aparecerá a data, e no LABEL, a hora... atualizando-a a cada segundo.... agora vou explicar o código:

-"procedure TForm1.Timer1Timer(Sender: TObject);" : o código no evento OnTimer, será executado a cada intervalo de tempo setado na propriedade "INTERVAL" do timer... sendo que esse valor é em milissegundos, ou seja, para ser executado a cada segundo, o inteval deve ser setado como "1000" (valor padrão).

-"var Tempo :TDateTime;" : Cria uma variável chamada Tempo, do tipo TDateTime, um tipo de variável que guarda a Data e o Tempo... ohhhhhh =O

-"Tempo:=now;": toda vez que é executado, a variável TEMPO assume o valor instantâneodo sistema. (now = agora). =D

-"Edit1.Text:=DateToStr(Tempo); ": Transformará o valor DATE da variável TEMPO em string, e colocará no EDIT.

-"Label1.Caption:=TimeToStr(Tempo);": Trasnformará o valor TIME da variável TEMPO em string e colocará no LABEL.

Lembrando mais uma vez que isso acontecerá a cada intervalo de tempo setado na propriedade INTERVAL do componente TIMER.


Bom... é isso ae pessoal.

Essa dica pode ser muito importante quando se tem situações por exemplo que a gente precisa da hora e da data exata que um cliente se cadastrou por exemplo, fez alguma alteração em seu cadastro, comprou alguma mercadoria, etc... isso pode ajudar em muitas situações, e além disso, deixa o seu programa mais bonito... você pode fazer um relógio por exemplo. Enfim... até a próxima.... VLWWW...


PS1: Para os que pensaram agora que eu fico todos os dias mexendo no Delphi... se enganaram... ahusahusuhasa... durante a semana, estou dedicando quase todo o meu tempo livre ao que eu mais gosto de fazer depois de mexer no PC.... LER.... ahsuahsuahs...

PS2: Não, não sou NERD.....

PS3: Em breve vou colocar mais dicas legais sobre programaçao e terminar o post sobre a manipulação do TDateTime.

PS4: Quem tiver alguma dica sobre o título das minhas postagens sobre dicas, deixe um comentário. flww...