Erro ao passar os parametros do Lazarus para o Delphi

Delphi

Banco de Dados

16/10/2018

Eu tinha um programa rodando todo liso no lazarus, então decidi passar para o delphi ( que é o que eu geralmente uso), só que nisso, parece que o delphi não aceita o parametro que eu passei

O parametro é esse ai.
    strBusca:= Trim(edtBuscaNome.Text);

   if (strBusca.Length > 0) then


Irei postar a função toda, agradeço se alguem puder me ajudar.
   var
  strBusca : String;
begin
  strBusca:= Trim(edtBusca.Text);

   if  (Length(strBusca > 0))   then
  begin
  Module.qr_CadPessoa.Close;
  Module.qr_CadPessoa.SQL.Clear;
  Module.qr_CadPessoa.SQL.Text:= 'select a.*, c.nome as Cidade, e.sigla as UF from contato a, cidade c, estado e where a.id_cidade = c.id_cidade and c.id_estado = e.id_estado and a.ct_nome like :SQLTEXTO order by a.ID_CONTATO' ;
  Module.qr_CadPessoa.ParamByName('SQLTEXTO').AsString := '%'+edtBusca.Text+'%';
  Module.qr_CadPessoa.Open;

  end

  Else
  begin
 // ShowMessage('Nenhum nome foi encontrado com esses caracteres !');
  Module.qr_CadPessoa.Close;
  Module.qr_CadPessoa.SQL.Clear;
  Module.qr_CadPessoa.SQL.Text:= 'select a.*, c.nome as Cidade, e.sigla as UF from contato a, cidade c, estado e where a.id_cidade = c.id_cidade and c.id_estado = e.id_estado order by a.ID_CONTATO';
  Module.qr_CadPessoa.Open;
  end;
Igor

Igor

Curtidas 0

Respostas

Kevlyn Godoy

Kevlyn Godoy

16/10/2018

Olá Concurseiros


Venha participar do Aniversário do Maior Site de Rateios do Brasil,

O aniversário é do Concurseiros Unidos,
mas o presente quem ganha é você!

Desconto de 30% a 70% em todo o site!
Corre aproveitar antes que termine!
5541991115296
GOSTEI 0
POSTAR