Jump to content

Turbine o seu Perfil

Confira a atualização e participe do clube!
Clique e saiba mais

Junte-se ao Clube de Membros VIP

Tenha destaque e diversos benefícios!
Confira Aqui

Acesse nosso Discord

Conheça nossos canais interativos
Confira Aqui
Notícia
  • Adquira já o seu VIP!
Sherex

[AJUDA] login sem DB

Recommended Posts

Galera eu tava querendo usar 2 usuarios e duas senha no form.

ex:

procedure TForm1.Image4Click(Sender: TObject);
begin
if(Edit1.Text='admin')and(Edit2.Text='matheusnas852')then
begin
ShowMessage('Deu Certo');
end
else
begin
ShowMessage('Não deu Certo');
end;
end;

 

Se tiver como ajuda aê galera :suando:

 

<Foi mal editar aki mas a sempre quando ultilizo a aréa certa de ajuda ninguem responde '-'>

Share this post


Link to post
Share on other sites

EM Visual Basic, seria só usar a função Or em vez de And, não sei se ela existe no Delphi.

 

Flws.

Share this post


Link to post
Share on other sites

Usa array.

É o jeito mais versátil se você não quiser usar bando de dados.

 

const dbLogin : array[1..3] of string = ('Conta1Login', 'Conta2Login', 'Conta3Login');
const dbSenha : array[1..3] of string = ('Conta1Senha', 'Conta2Senha', 'Conta3Senha');

implementation

{$R *.dfm}

function check(Login, Pass:String):boolean;
var i:word;
begin
 result := false;
 for i := 1 to High(dbLogin) do begin
   if (Login = dbLogin[i]) and (Pass = dbSenha[i]) then begin
      result := true;
      break;
   end;
 end;
end;

 

Usando:

if check('Conta1Login', 'Conta1Senha') then
  ShowMessage('funcionou')
else
   ShowMessage('nao funcionou');

Share this post


Link to post
Share on other sites

if check(useredit.text, passwordedit.text) then

ShowMessage('funcionou')

else

ShowMessage('nao funcionou');

Share this post


Link to post
Share on other sites

VLW AI GALERA , PODE DAR CLOSED !

 

if check(edit1.text, edit2.text) then
ShowMessage('funcionou')
else
ShowMessage('nao funcionou');

 

Usei isso no Botton !

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...