Re: [delphi-br] Mudar de campo pelo tamanha do Edit

2005-01-20 Por tôpico Márcio Theis 


Se não usar todo o MaxLength do campo, é só dar uma tab
da forma normal para saltar de campo.

- Original Message - 
From: Eduardo Silva ® [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, January 20, 2005 2:09 PM
Subject: RES: [delphi-br] Mudar de campo pelo tamanha do Edit



E se vc não usar todo o maxlength do campo, terá que colocar uma procedure
que troca o tab pelo enter ?

  -Mensagem original-
  De: jmourajr2000 [mailto:[EMAIL PROTECTED]
  Enviada em: quinta-feira, 20 de janeiro de 2005 12:51
  Para: delphi-br@yahoogrupos.com.br
  Assunto: RES: [delphi-br] Mudar de campo pelo tamanha do Edit



  Esta dica foi passada pelo nosso amigo Márcio Theis e fui eu quem
  postei a duvida e então lá vai:

  Crie a seguinte procedure

  procedure TForm1.SaltaCampos(Sender: TObject);
  begin
  if (Length((Sender as TEdit).Text) = ((Sender as TEdit).MaxLength))
  then
  Perform(WM_NEXTDLGCTL,0,0);
  end;

  depois ligue ela a todos os seus edit's através do OnChange, mas
  somente
  cuide,
  se vc estiver trabalhando com TDBEdit deve alterar na procedure onde
  tem os
  TEdit.

  Sendo assim vc tera somente um processo que fara tudo, sem a
  necessidade de
  terde
  colocar em todos os lugares os comandos.


  Abraços.

  José de Moura






  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:








--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.




[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos













-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Sistema para Controle de Versões

2005-01-18 Por tôpico Márcio Theis 


No próprio site do FreeVcs vc encontra uma boa documentação, mas
em português você pode encontrar tb em:

http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=88
http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=113

ou se preferir você pode entrar em contato pelo ICQ com o Tiago Chagas, foi
ele quem escreveu
estes dois tutoriais e já me ajudou bastante com o FreeVCS, o n° do ICQ dele
é: 129257305.


- Original Message - 
From: Rogério [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, January 17, 2005 4:52 PM
Subject: Re: [delphi-br] Sistema para Controle de Versões



 Conheces algum manual para utilização do FreeVCS ??
 Tenho ele, mas não o instalei ainda para não onfundir os
desenvolvedores...

 - Original Message - 
 From: Danilo Antonio Leite [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Sent: Monday, January 17, 2005 6:49 PM
 Subject: Re: [delphi-br] Sistema para Controle de Versões


 
  Pesquise por FreeVCS. Aqui nós utilizamos e ele atende perfeitamente.
 
  Atenciosamente,
 
  Danilo Antônio Leite
  Arcadian Tecnologia SA
  [EMAIL PROTECTED]
 
 
 
 
  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
  Para ver as mensagens antigas, acesse:
   http://br.groups.yahoo.com/group/delphi-br/messages
 
  Para falar com o moderador, envie um e-mail para:
   [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
  Links do Yahoo! Grupos
 
 
 
 
 
 
 
 




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos














-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] CEP qual a forma correta de se trabalhar ??

2005-01-18 Por tôpico Márcio Theis 


Na minha opinião se no momento que o usuário preenche o CEP e este carrega
as informações de
logradouro, cidade e bairro, não se deve mais mexer nestes campos, pelo
menos é assim que nós
aqui trabalhamos. Ao menos que o CEP carregue somente a cidade, ai sim
permitir que ele altere
o logradouro e o bairro.


- Original Message - 
From: Marcelo Carvalho [EMAIL PROTECTED]
To: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br;
[EMAIL PROTECTED];
[EMAIL PROTECTED]
Sent: Tuesday, January 18, 2005 7:58 AM
Subject: [delphi-br] CEP qual a forma correta de se trabalhar ??



Bom Dia,

Uma dúvida uma vez que se trabalha com tabelas de CEP's qual a postura
do sistema se deve tomar ??
Pegunto isso pois nunca sei se devo pedir somente o CEP e os demais campos
( ENDERECO, CIDADE, BAIRRO, UF ) já vem preenchidos, sem condição de
alteração e depois já cai diretamente no campo de numero ou complemento do
endeço ou se deixo o usuário alterar os campos ENDERECO, CIDADE, BAIRRO e UF
?? Uma vez que ele informe um CEP válido estes campos já estaram preenchidos
se ele alterar não estará distorcendo a validação do endereço ??

Atenciosamente,

Marcelo Carvalho


Essa mensagem, incluindo seus anexos, tem caráter confidencial e seu
contéudo
é restrito ao(s) destinatário(s) da mensagem.
Qualquer uso nao autorizado, replicaçao ou disseminaçao desta mensagem ou
parte dela é expressamente proibido.
Esse e-mail foi certificado contra virus.
ISCMPA - Irmandade da Santa Casa de Misericórdia de Porto Alegre



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos













-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Como saltar campos automaticamente.

2005-01-18 Por tôpico Márcio Theis 



Eu fiz o seguinte teste e deu certo:
Crie a seguinte procedure

procedure TForm1.SaltaCampos(Sender: TObject);
begin
if (Length((Sender as TEdit).Text) = ((Sender as TEdit).MaxLength)) then
Perform(WM_NEXTDLGCTL,0,0);
end;

depois ligue ela a todos os seus edit's através do OnChange, mas somente
cuide,
se vc estiver trabalhando com TDBEdit deve alterar na procedure onde tem os
TEdit.

Sendo assim vc tera somente um processo que fara tudo, sem a necessidade de
terde
colocar em todos os lugares os comandos.

Espero ter ajudado..
[]'s
/]/[EMAIL PROTECTED]

- Original Message - 
From: Rodrigo Schiavo [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, January 18, 2005 7:06 AM
Subject: Re: [delphi-br] Como saltar campos automaticamente.



 if (Length(Edit1.Text)=3) then Perform(WM_NEXTDLGCTL,0,0);

 jmourajr2000 escreveu:

 
  Caros amigos, boa tarde!
 
  É possivel fazer com que exista um salto automatico, entre campos,
  sendo que ao completar o maxlenght de um Edit ou DBEdit salte para
  o proximo campo, sem a interferencia das teclas Tab e Enter.
 
  Estou tentando assim, mas sem sucesso:
 
  if lenght(Edit1.Text) = 8 then
 Edit2.SetFocus;
 
  Agradeço pela atenção.
 
  Abraços a todos.
 
  José de Moura
 
 
 
 
 
  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
 
 
  *Yahoo! Grupos, um serviço oferecido por:*
 
http://br.rd.yahoo.com/SIG=12ajvevqm/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1105885116/A=2191897/R=0/SIG=10vqa2grn/*http://br.d
iversao.yahoo.com/
 
 
http://br.rd.yahoo.com/SIG=12ajvevqm/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1105885116/A=2191897/R=1/SIG=10vqa2grn/*http://br.d
iversao.yahoo.com/
 
 
 
  
  *Links do Yahoo! Grupos*
 
  * Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
 
  * Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
 
mailto:[EMAIL PROTECTED]
 
  * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html.
 
 



 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos














-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] data atual

2005-01-14 Por tôpico Márcio Theis 


edtData.Text:=DateToStr(Date);
  - Original Message - 
  From: james nascimento 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, January 12, 2005 3:34 PM
  Subject: [delphi-br] data atual



  Como faço para inserir automaticamente a data atual em uma EDIT, quando abrir 
um form.

  [EMAIL PROTECTED]

  
  -
  Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! 
agora.

  [As partes desta mensagem que não continham texto foram removidas]






  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
 
  
 
   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Exit

2005-01-14 Por tôpico Márcio Theis 


tire o exit abaixo da linha de comando CmbSexo.SetFocus;
pois vc já da um setfocus e depois um exit, acredito ser isto.
  - Original Message - 
  From: frcunhahell 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, January 13, 2005 8:09 PM
  Subject: [delphi-br] Exit



  Tem um problema estranho por aki

  tem um trecho de codigo q eh o seguinte:

if length(trim(CmbSexo.Text)) = 0 then
begin
  MessageDlg('Digite o sexo', mtInformation,[mbok],0);
  CmbSexo.SetFocus;
  exit;
end;

  Caso deixa o campo sexo em branco o programa deveria para a execucao 
  do programa mas nao para e seguinte em diante. Mais estranh ainda 
  eh q c eu colocar um break no if ele funciona normalmente...

  Alguem sabe o q pode ser acontecendo?

  Valew





  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
 
  
 
   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Apagar data de tabela paradox

2005-01-13 Por tôpico Márcio Theis 


tabelacampodata.AsString:='';
  - Original Message - 
  From: alisson_delphi 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, January 12, 2005 3:15 PM
  Subject: [delphi-br] Apagar data de tabela paradox



  Galera, preciso apagar uma data de uma tabela paradox.
  Na tabela esta marcando 30/12/1899, o campo é do tipo date.
  Como eu faço para apaga-lo ?

  Já tentei:
  tabelacampodata.asdatetime := 0;
  tabela.fieldbyname('data').AsDateTime := 0;
  tabelacampodata.isnull;

  Nada deu certo.
  To deseperado.
  Obrigado






  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
 
  
 
   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Quick Report

2005-01-13 Por tôpico Márcio Theis 


Pessoal

Baixei o QuickReport 4.05 Professional para o Delphi 6, mas não
to conseguindo instalar, alguém já instalou ou sabe instalar?

[]'s
/]/[EMAIL PROTECTED]






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] recordcount é confiável?

2005-01-11 Por tôpico Márcio Theis 


O RecordCount na minha opinião é um pouco confiável, dependendo da forma que é 
usada. Pois ele pode lhe retornar as vezes o valor de -1, e isto acontece se 
você utilizar o ( select * ) na cláusula, caso contrário não acontece, e se vc 
não quer mais ter problema faça o seguinte, utilize desta forma...

Query1.close;
Query1...(Select * from);
query1.open;
if not query1.IsEmpty then
   update;
else
   insert;

e uma dica tb que lhe dou, remova o (select * )  do seus códigos sql, sempre 
faça o select com os campos que vc deseja.

Espero ter ajudado

[]'s
/]/[EMAIL PROTECTED]

  - Original Message - 
  From: delphi6_2005 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, January 11, 2005 8:36 AM
  Subject: [delphi-br] recordcount é confiável?



  Trabalho com querys em banco SQL Server, estou com problemas e 
  acredito que a propriedade recordcount de minhas querys não estão 
  funcionando 100%.
  Tenho um select simples em uma query porém as vezes o recordcount 
  retorna certo e as vezes não.

  Estou usando assim simples.

  Query1.close;
  Query1...(Select * from);
  query1.open;
  if query1.recordcount  0 then
 update;
  else
 insert;

  Alguma forma melhor de pesquisa em SQL Server.

  Amigo agradeço a ajuda.

  Paulo





  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
 
  
 
   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Dúvida

2005-01-10 Por tôpico Márcio Theis 


Alguém conhece um programa ou algum componente que
seja possível manipular os componentes de um QuickReport
no form Ou seja, que eu possa deixar o cliente
manipular os componentes dos meus relatórios da forma que ele quizer...

Obrigado pela atenção

[]'s
t+

[As partes desta mensagem que não continham texto foram removidas]






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Verificação de data (function)

2005-01-08 Por tôpico Márcio Theis 


boa tarde, faça o seguinte, crie uma procedure que receber como parametro um 
TObject,
da seguinte maneira:

procedure TForm1.CorrigeData(edt: TObject);
var
n: integer;
begin
n:=0;
while n = (Form1.ComponentCount - 1) do
begin
if TMaskEdit(Form1.Components[n]) = edt then
begin
if (TMaskEdit(Form1.Components[n]).Text  '  /  /') then
begin
try

TMaskEdit(Form1.Components[n]).Text:=FormatDateTime('dd/mm/', StrToDate 
(TMaskEdit(Form1.Components[n]).Text));
except
ShowMessage('Data Inválida !');
end;
end;
end;
Inc(n);
end;
end;


sendo que vc liga o CorrigeData no OnExit do campo

espero ter ajudado
[]'s
t+
  - Original Message - 
  From: Erika 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, January 07, 2005 12:17 PM
  Subject: [delphi-br] Verificação de data (function)



  Oi pessoal.

  Eu queria fazer a verificação da data digitada, sendo que quando o 
  usuario digitar por exemplo 01/01/05 apareça 01/01/2005.
  estou usando este código no OnExit do campo:

  if Data  '  /  /' then begin
 try
   MaskEdit1 := FormatDateTime('dd/mm/', StrToDate(MaskEdit1));
 except
   ShowMessage('Data Inválida !');
 end;
  end;

  Está funcionando certinho, mas como tenho muitos campos de data, eu 
  achei que seria mais viável criar uma Function para tratar destas 
  datas. Porém se eu executo a Function no OnExit não funciona. 
  Coloquei a function assim:

  function VerificaData (Data: String): String ;
  begin
 if Data  '  /  /' then begin
try
   Data := FormatDateTime('dd/mm/', StrToDate(Data));
except
   ShowMessage('Data Inválida !');
end;
 end;
  end;

  O que pode ser?

  Obrigado! = ERikA






  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo 
Horizonte Brasília  
 
   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html