ordinal type required ajuda

Delphi

Automação Comercial

11/10/2016

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!
Breno Schaefel

Breno Schaefel

Curtidas 0

Respostas

Raimundo Pereira

Raimundo Pereira

11/10/2016

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;
GOSTEI 0
POSTAR