Campo com Tamanho certo

16/08/2004

0

Ai galera tenho este seguinte código.

Quando eu digito o ANO ele verifica se ja existe, se existir ele da o aviso e que existe e da o focu no editdiv.text se não ele gera o ano, so que ele se eu por imcompleto tipo 200 ele gera dívida com ano 200, quero que ele so aceite se estiver co os quatro dígitos nem mais nem menos.
Quero que ele so aceite se for assim com o 4 dígitos 2004.

var
i : integer;
ano : integer;
begin
if querydivida.Locate(´ANO´, anodiv.Text, [lopartialkey, locaseinsensitive]) then
begin
ShowMessage(´Ano ja Cálculado´);
anodiv.SetFocus;
end
else
begin
ano := strtoint(anodiv.text);
FrmCadastro.ADOQueryClientes.open;
FrmCadastro.ADOQueryClientes.first;

while not FrmCadastro.ADOQueryClientes.eof do
begin
for i := 1 to 12 do
begin
querydivida.insert;
querydividaANO.Value := (ano);
querydividaCOD_CLI.value := FrmCadastro.ADOQueryClientesCOD_CLI.value;
querydividaTAXA.value := FrmCadastro.ADOQueryClientesTAXA_CLI.value;
querydividaMES.value := i ;
querydivida.post; // grave da forma que achar melhor
// etc...
end;
FrmCadastro.ADOQueryClientes.next;
end;
end;
end;


Uoquisala

Uoquisala

Responder

Posts

16/08/2004

Weber

If (StrToInt(Trim(editdiv.text)) < 1900) and (StrToInt(Trim(editdiv.text)) > 2100) then
  ShowMessage(´Ano inválido´);



Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar