ordinal type required ajuda
11/10/2016
0
Boa tarde, estou enfrentando problemas na hora de compilar um executável no Delphi6, aparece a seguinte mensagem: ordinal type required]
Segue o código:
begin
//ativa a tabela
dm.usuario.Open;
//verifica se os campos são iguais
if dm.usuario.Locate('DESCRICAO', editusuario.Text, [loCaseInsensitive]) and
dm.usuario.Locate('SENHA', editsenha.Text, [loCaseInsensitive]) then
begin
[Error] Unit1.pas(37): Ordinal type required
[Error] Unit1.pas(38): Ordinal type required
Obrigado!
Segue o código:
begin
//ativa a tabela
dm.usuario.Open;
//verifica se os campos são iguais
if dm.usuario.Locate('DESCRICAO', editusuario.Text, [loCaseInsensitive]) and
dm.usuario.Locate('SENHA', editsenha.Text, [loCaseInsensitive]) then
begin
[Error] Unit1.pas(37): Ordinal type required
[Error] Unit1.pas(38): Ordinal type required
Obrigado!
Breno Schaefel
Curtir tópico
+ 0
Responder
Posts
11/10/2016
Raimundo Pereira
Boa tarde, tente realizar o locate com mais de um campo
dm.usuario.close;
dm.usuario.open;
IF dm.usuario.Locate('DESCRICAO;SENHA', VarArrayOf([editusuario.Text, editsenha.TexT]),[loPartialKey, loCaseinsensitive]) THEN
BEGIN
SHWOMESSAGE('OK');
END
ELSE
BEGIN
SHWOMESSAGE('FAIL);
END;
END;
dm.usuario.close;
dm.usuario.open;
IF dm.usuario.Locate('DESCRICAO;SENHA', VarArrayOf([editusuario.Text, editsenha.TexT]),[loPartialKey, loCaseinsensitive]) THEN
BEGIN
SHWOMESSAGE('OK');
END
ELSE
BEGIN
SHWOMESSAGE('FAIL);
END;
END;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
