Erro Else

System98_ · 4 de maio de 2017

implementation

 uses Unit3;

{$R *.dfm}

procedure TFlogin.SpeedButton1Click(Sender: TObject);
begin
if(edit1.text='teste') and (edit2.Text='teste')then
 Image3.Visible := True and fprincipal.showmodal
else
  messagebox(0,'Usuário ou Senha invalido, tente novamente','Erro de Acesso',0)

end;

procedure TFlogin.SpeedButton2Click(Sender: TObject);
begin
  edit1.Clear;
  edit2.Clear;
  edit1.SetFocus;
end;

procedure TFlogin.SpeedButton3Click(Sender: TObject);
begin
  Flogin.Close;
  Flogin.Destroy;
end;

end.

Como usar o IF, Else neste caso? Estou tendo problemas. ajudem por favor!

bngomes · 4 de maio de 2017

Não me lembro muito de delphi, mas aparentemente seu erro não ta no if.. está no comando dentro dele..

if(edit1.text='teste') and (edit2.Text='teste')then
 Image3.Visible := True and fprincipal.showmodal
else
  messagebox(0,'Usuário ou Senha invalido, tente novamente','Erro de Acesso',0)

Deveria ser

if (edit1.text='teste') and (edit2.Text='teste') then
begin
 Image3.Visible := True;
 fprincipal.showmodal;
end;
else
  messagebox(0,'Usuário ou Senha invalido, tente novamente','Erro de Acesso',0)

ou coisa assim.. não lembro se o end dentro do laço if tem o ";" ou não.. mas a sintaxe esta errada

Simon Viegas · 4 de maio de 2017

Acho que é isso mesmo... e não tem ";" mesmo.

Ficaria algo assim:

implementation
uses
   Unit3;
{$R *.dfm}

procedure TFlogin.SpeedButton1Click(Sender: TObject);
  begin
  if (edit1.text='teste') and (edit2.Text='teste') then
    begin
    Image3.Visible:=True;
    fprincipal.showmodal;
    end
  else
    messagebox(0,'Usuário ou Senha invalido, tente novamente','Erro de Acesso',0)
  end;

procedure TFlogin.SpeedButton2Click(Sender: TObject);
  begin
  edit1.Clear;
  edit2.Clear;
  edit1.SetFocus;
  end;

procedure TFlogin.SpeedButton3Click(Sender: TObject);
  begin
  Flogin.Close;
  Flogin.Destroy;
  end;

END.

UDPATE

Esqueci do begin/end do if.