Estrutura De Repetição

[Guest - Mauricio -]

Galera estou com um problema no código abaixo, o 1º Repeat funciona normal, mas o 2º repete até o ultimo registro mas quando não encontra ele não executa o "Else" se alguém tiver alguma idéia do que pode ser desde já agradeço...

procedure TF_BomDia.SenhaKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key= 13 then

Begin

If (Senha.Text ='') Then

Begin

Messagedlg('Você deve digitar sua Senha!',mterror,[mbOk],0);

Senha.SetFocus;

end

Else

// Início do 1º Repeat

T_BomDia.First;

If Not T_BomDia.Eof Then

Repeat

If (codigo.Text = T_BomDiaMatricula.AsString) and (date = T_BomdiaData.AsDateTime) and (T_BomDiaChegada.AsString <> '') then

Begin

Messagedlg('Desculpe mas você já marcou sua chegada hoje!',mtinformation,[mbOK],0);

Codigo.Clear;

Senha.Clear;

F_BomDia.Close;

F_Principal.Close;

end;

T_BomDia.Next

until T_BomDia.Eof

// Fim do 1º Repeat

Else

// Início do 2º Repeat

T_BomDia.Active := False;

T_BomDia.Active := True;

T_BomDia.First;

If Not T_BomDia.Eof Then

Repeat

If (codigo.Text = T_BomDiaMatricula.AsString) and (date -1 = T_BomdiaData.AsDateTime) then

Begin

Messagedlg('Dia Anterior Marcado!',mtinformation,[mbOK],0);

end;

T_BomDia.Next

until T_BomDia.Eof

// Fim do 2º Repeat

Else

Begin

[tocotaura]

tu não esqueceu de colocar o "ELSE" dentro do bloco Begin End?

[Mauricio.cba]

O else está na estrutura amigo!

T_BomDia.Next

until T_BomDia.Eof

// Fim do 2º Repeat

Else

Begin