Função pos.

Delphi

26/02/2003

Como faço para utilizar a função ´pos´ no seguinte codigo?
begin
with frm_teste.Query1 do
begin
close;
sql.clear;
sql.add(´select * from const_estadual´);
sql.add(´where upper(ementa) like :1´);
params[0].asstring:=uppercase(editlocalizar.text)+´¬´;
prepare;
open;
end;
end;
quero encontrar uma palavra qualquer dentro de um texto.

Agradeço a ajuda!


Douglas

Douglas

Curtidas 0

Respostas

Anonymous

Anonymous

26/02/2003

Tente:
params[0].asstring:= [b:1ca1f1368d]QuotedStr([/b:1ca1f1368d]uppercase(editlocalizar.text)+´¬´[b:1ca1f1368d])[/b:1ca1f1368d];



Como faço para utilizar a função ´pos´ no seguinte codigo? begin with frm_teste.Query1 do begin close; sql.clear; sql.add(´select * from const_estadual´); sql.add(´where upper(ementa) like :1´); params[0].asstring:=uppercase(editlocalizar.text)+´¬´; prepare; open; end; end; quero encontrar uma palavra qualquer dentro de um texto. Agradeço a ajuda!



GOSTEI 0
Marcelo Saviski

Marcelo Saviski

26/02/2003

[i:dc7dbe7952][u:dc7dbe7952][b:dc7dbe7952][size=18:dc7dbe7952][color=orange:dc7dbe7952]Eu geralmente uso assim[/color:dc7dbe7952][/size:dc7dbe7952][/b:dc7dbe7952][/u:dc7dbe7952][/i:dc7dbe7952]

query.active := false;

query.Sql.clear;

query.SQL.Add(´select * from table ´)
query.SQL.add(´where upper(ementa) like "´ + uppercase(editlocalizar.text)+´¬"´; 

query.active := true



GOSTEI 0
POSTAR