use assim
if (strcomp(Pchar(edit1.text),Pchar('Vicentino'))
= 0) And (strcomp(Pchar(edit2.text),Pchar(Senha)
= 0) Then
se isso nao funcionar nao eh igual mesmo!!!!
--- Rodrigo Othavio Farias <[EMAIL PROTECTED]>
escreveu:
---------------------------------
Só pode ser uma coisa
o edit1.text é diferente de 'Vicentino' e o
edit2.text é diferente de Senha
o Delphi ainda que eu saiba ainda consegue
resolver uma igualdade booleana,
se ele diz que nao nao esta sendo escrito
'Vicentino' e que a senha ta
diferente do conteudo da variavel senha acredite.
Entao verifique se o teu usuario nao esta
digitando 'vicentino' ou
'VICENTINO', do jeito que esta sua comparacao ta
case-sensitive nos dois
campos
[]´s
Rodrigo O. Farias
----- Original Message -----
From: lyanagomes
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, February 24, 2005 1:44 PM
Subject: [delphi-br] probleminha..
procedure TLogin.BitBtn1Click(Sender: TObject);
Var
Senha: string;
begin
Senha:=table1Password.value;
if (edit1.text='Vicentino') and
(edit2.text=Senha) then
begin
Principal.show;
Edit1.text:='';
Edit2.text:='';
Login.Visible:=false;
end
else
Showmessage('Usuário ou senha incorretos!');
end;
tenho este código no botão,mas só executa a parte
do showmessage ~e
não entra no principal,só q eu nao estou achando
o erro.
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito
aos Termos do Serviço do
Yahoo!.
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
function
SearchComboBox() { if
(document.form_combo.keyword.value.length==0){
alert("Por favor, digite algo."); return false;
}else { document.form_combo.action
="http://br.rd.yahoo.com/SIG=12ak1er0u/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1109351743/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11";;
} return true;}
[input]
[input] [input]
---------------------------------
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web,
acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está
sujeito aos Termos do Serviço do Yahoo!.
=====
Leandro...
[> Mutuka <]
__________________________________________________
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
