Agora que fiz uma coisinha mais complexa olha o erro na segunda linha da
procedure:
(Privileged instruction)
Como tenho varias datas, quero fazer uma unica rotina de critica. Então fiz
assim. Más ta tam bonitinha, o que deu erro PRIVILEGED INSTRUCTION
A intenção eh ir até a procedure validadata independente do campo data em
que esteja. Ele vai lah pelo EXIT DOS TEDITMASK'S.
procedure tfrmobjetos.validadata;
var
i : integer;
begin
i := frmObjetos.ComponentCount - 1;
if tmaskedit(frmObjetos.Components[i]).Text = ' / / ' then
begin
ShowMessage('Digite a data.') ;
TMaskedit(frmObjetos.Components[i]).setfocus ;
exit ;
end;
try
TMaskedit(frmObjetos.Components[i]).Text :=
DateToStr(Strtodate(TMaskedit(frmObjetos.Components[i]).Text));
except
Showmessage('Data inválida. Corrija por favor.') ;
TMaskedit(frmObjetos.Components[i]).Text := ' / / ';
TMaskedit(frmObjetos.Components[i]).setfocus ;
end;
end;
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
--
<<<<< 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
