(Resolvido) Erro ao usar a função loPartialKey

[Fireboard]

Encontrei tópicos relacionados a como usar os métodos loPartialKey e loCaseInsensitive, mas não consegui resolver meu problema.

Peço o nome de usuário (edusuario.text) e senha (edsenha.text), daí pesquiso no banco de dados se os dados digitados são válidos, só que dá erro ao compilar. A mensagem é:

Undeclared identifier: 'loPartialKey' e Undeclared identifier: 'loCaseInsensitive'.

Em um tópico foi dito para verificar se a unit faz referência ao método ou algo nesse sentido, eu verifiquei e aparentemente está do jeito que foi dito.

o código é esse:

if not Dtlog.Tblogin.Locate('usuario;senha', VarArrayOf([Edusuario.Text, Edsenha.Text]), [loPartialKey, loCaseInsensitive]) then

begin

showmessage ('usuario invalido');

exit;

end;

O que pode estar dando errado?

Muito Obrigado

[Jhonas]

exemplo do delphi

TLocateOptions defines the values for the Options parameter of the Locate method of TTable, TQuery, and TStoredProc.

Unit

DB

type

TLocateOption = (loCaseInsensitive, loPartialKey); // deve ser usado nesta sequencia se for usado os dois

TLocateOptions = set of TLocateOption;

Description

The TLocateOptions type defines the possible values for the Options parameter of the Locate method of the TTable, TQuery, and TStoredProc components, as described in the following table:

Value Description

loCaseInsensitive Key fields and key values are matched without regard to case.

loPartialKey Key values can include only part of the matching key field value; for example, 'HAM' would match both 'HAMM' and 'HAMMER.'

with CustTable do

Locate('Company;Contact;Phone', VarArrayOf(['Sight Diver', 'P', '831-431-1000']), [loPartialKey]);

outros exemplos

if CDS_Cadcli.Locate('COD',VarArrayOf([codcli]), [loCaseInsensitive, loPartialKey]) then

if CDS_Cadastro.Locate('CODCLI;COD_ATIV',VarArrayOf([CDS_CadcliCOD.AsInteger,CODATIV]), []) then

o seu codigo

if not Dtlog.Tblogin.Locate('usuario;senha', VarArrayOf([Edusuario.Text, Edsenha.Text]), [loPartialKey, loCaseInsensitive]) then

OBS: Voce trocou as bolas [loCaseInsensitive, loPartialKey])

if not Dtlog.Tblogin.Locate('usuario;senha', VarArrayOf([Edusuario.Text, Edsenha.Text]), [loCaseInsensitive, loPartialKey]) then

abraço

[Fireboard]

Continua dando erro, a mensagem é a mesma: undeclared identifier: " loCaseInsensitive "

Seu eu deixar o código abaixo sem a opção loCaseInsensitive, só com [] no final o programa roda

if not Dtlog.Tblogin.Locate('usuario;senha', VarArrayOf([Edusuario.Text, Edsenha.Text]), [loCaseInsensitive]) then

begin

showmessage ('usuario invalido');

exit;

end;

[Jhonas]

na verdade voce pode deixar sem [] , mas para este erro estar acontecendo, veja se esta definida na sua clausula uses o " DB "

abraço

[Fireboard]

Funcionou, muito obrigado, valeu mesmo

Editado Dezembro 15, 2007 por Fireboard

[Jhonas]

olhe no seu codigo

unit UApres1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mylabel, jpeg, ExtCtrls, typInfo, RxGIF, Db, DBTables, Animate,
  GIFCtrl, WinSkinData;

type
  TFApres1 = class(TForm)
    Panel1: TPanel;

olhe na clausula uses tem que estar o Db

TLocateOptions define os valores pelo parâmetro de Opções do método Localize de TTable, TQuery, e TStoredProc.

Unidade

DB

tipo

TLocateOption = (loCaseInsensitive, loPartialKey); / / deve ser usado nesta sequencia se for usado os dois

TLocateOptions = jogo de TLocateOption;

Descrição

O tipo de TLocateOptions define os possíveis valores pelo parâmetro de Opções do método Localize do TTable, TQuery, e componentes de TStoredProc, como descrito na seguinte tabela:

Avalie Descrição

loCaseInsensitive - Campos chaves e valores de chave são emparelhados sem levar em conta o caracter maiusculo ou minusculo.

loPartialKey - valores podem incluir só parte do valor de campo fundamental ; por exemplo, ' HAM' emparelharia ambos ' HAMM' e ' MARTELO. '

ou seja procuraria strings que contenham a letra M

conseguiu entender ??

abraço

[Fireboard]

Entendi, obrigado, tá rodando certinho