Campo com Tamanho certo

16/08/2004

1

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;


Responder

Posts

16/08/2004

Weber

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



Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira