cria uma função pra retirar a mascara
function retirarMascara(str : string) : string;
var
ct : integer;
begin
result := '';
for ct := 1 to Length(str) do
if (str[ct] in ['0'..'9']) or (str[ct] in ['a'..'z']) or (str[ct] in
['A'..'Z']) then
result := result + str[ct];
end;
e depo
Como saber quantos caracteres foram digitados no maskedit, so que o EditMask ja
esta preenchido e quando eu uso o comando Length ele avisa q tem o campo ja foi
digitado 15 caracteres, mas na verdade so foi digitado 1, entao...como faco pra
saber quantos caracteres foram digitados sem ter que apa
Coloque essa função no evento OnExit do MaskEdit. Ela testa se a data é válida
e também completa o ano acima de 2000. Ex.: Se o usuario digita 25/07/5, ela
completa automaticamente para 25/07/2005.
procedure CompletaData (Edit : TMasKEdit);
var Texto1, Texto2 : string;
begin
if (Edit.Text = '
No Field Editor da Table,
coloque no DisplayFormat = '0.00' para 120,00
Caso queira R$ 120,00 coloque EditFormat = 'R$'
a se colocar True em Currency tb cormata 120,00...
fazer uma função e no OnExit do MaskEdit chamar ela...
O DateTimePicker tb é uma ótima solução.
[]'s
Tbaiano
[As parte
Eu utilizo o compontente DateTimePicker para isso...
- Original Message -
From: Cristiano
To: delphi-br@yahoogrupos.com.br
Sent: Monday, July 25, 2005 10:23 AM
Subject: [delphi-br] MaskEdit
Como sempre as minhas dúvidas são muito simples por eu ser iniciante... estou
Como sempre as minhas dúvidas são muito simples por eu ser iniciante... estou
utilizando o Maskedit para entrada de Data, tem alguma função que faz a
validação da Data?? para que o usuario não entra com 13 onde o número de mês no
maximo é 12.. mesma coisa com dia dependendo do mês..28 , 30,31 d
-Imperial Transportes Ltda)
[mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 30 de março de 2005 19:10
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] MaskEdit & IntraWeb
Vasculhei e não encontrei nada com relação a Delphi/IntraWeb. Vc pode
dar uma dica onde tenho que ir, po
riginal-
De: CPD (Borborema-Imperial Transportes Ltda)
[mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 30 de março de 2005 12:04
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] MaskEdit & IntraWeb
Vc tem algum exemplo, ou sabe indicar algum local onde eu posso
pesquisar ?
Al
Transportes Ltda)
[mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 30 de março de 2005 12:04
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] MaskEdit & IntraWeb
Vc tem algum exemplo, ou sabe indicar algum local onde eu posso
pesquisar ?
Alexandre C Souza
--
No virus foun
Vc tem algum exemplo, ou sabe indicar algum local onde eu posso pesquisar ?
Alexandre C Souza
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.8.6 - Release Date: 30/03/2005
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MEN
)
[mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 29 de março de 2005 18:01
Para: Grupo do Delphi
Assunto: [delphi-br] MaskEdit & IntraWeb
Pessoal,
Estou precisando em um IWEdit colocar uma mascara para Fone e Data,
como eu posso fazer isso no IW ?
Alexandre C Souza
--
Vou conseguir com o delphi 6 ou vou ter que pular para o 2005?
-Mensagem original-
De: Eduardo RC Neto [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 30 de março de 2005 09:02
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] MaskEdit & IntraWeb
Um bom começo s
Um bom começo seria comprar o Livro do FACUNTE.
Abraços,
DIDA
---Mensagem original---
De: Cícero
Data: 03/30/05 08:43:26
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] MaskEdit & IntraWeb
Nossa como eu gostaria de tentar alguma coisa no intraweb (nao sei nem
Nossa como eu gostaria de tentar alguma coisa no intraweb (nao sei nem como
começar)"desabafo".
-Mensagem original-
De: CPD (Borborema-Imperial Transportes Ltda)
[mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 29 de março de 2005 18:01
Para: Grupo do Delphi
Assunto:
Pessoal,
Estou precisando em um IWEdit colocar uma mascara para Fone e Data, como eu
posso fazer isso no IW ?
Alexandre C Souza
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.8.4 - Release Date: 27/03/2005
[As parte
ter lhe ajudado.
[]s
Fabrício Veloso Ramos
On Thu, 7 Oct 2004 10:48:43 -0300, "Filipe" <[EMAIL PROTECTED]> escreveu:
> De: "Filipe" <[EMAIL PROTECTED]>
> Data: Thu, 7 Oct 2004 10:48:43 -0300
> Para: <[EMAIL PROTECTED]>
> Assunto: Re:
naum existe isso aki...
- Original Message -
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, October 07, 2004 10:27 AM
Subject: Re: [delphi-br] MaskEdit
Filipe, bom dia.
Fiquei muito tempo sem programar e posso estar dando um "bola fora",
On Thu, 7 Oct 2004 10:21:39 -0300, "Filipe" <[EMAIL PROTECTED]> escreveu:
> De: "Filipe" <[EMAIL PROTECTED]>
> Data: Thu, 7 Oct 2004 10:21:39 -0300
> Para: "((Delphi" <[EMAIL PROTECTED]>
> Assunto: [delphi-br] MaskEdit
>
>
> Bom
Bom Dia, pessoal...
Estou com um problema... Tenho um Dbedit q, dependendo do numero de caracteres, ele
formata para cpf ou cnpj. isso no evento OnExit do dbEdit, conforme a procedure:
procedure TFrmClientes.DBEdit13Exit(Sender: TObject);
begin
if length(dbedit13.Text) = 14 then
clientdat
19 matches
Mail list logo