Separar string por espaços
Olá,
Estou usando o Delphi 2005 em asp.net
Preciso pegar uma string que está vindo de uma caixa e separar as palavras dentro dela para montar minha SQL. Por exemplo:
string = ´Campeonato futebol janeiro´
Quero que ele monte a string desta forma:
novastring = ´CAMPO = campeonato AND CAMPO = futebol AND CAMPO = janeiro´
como faço isso? estou tentando usar o split junto com for in mas mas estou conseguindo.
Estou usando o Delphi 2005 em asp.net
Preciso pegar uma string que está vindo de uma caixa e separar as palavras dentro dela para montar minha SQL. Por exemplo:
string = ´Campeonato futebol janeiro´
Quero que ele monte a string desta forma:
novastring = ´CAMPO = campeonato AND CAMPO = futebol AND CAMPO = janeiro´
como faço isso? estou tentando usar o split junto com for in mas mas estou conseguindo.
Rzcoimbra
Curtidas 0
Respostas
Edineidaniel
07/07/2005
Acho q não muda mto para o Delphi 2005, mas no delphi 7 eu utilizo assim:
function BuscaTroca(Text, Busca, Troca: String): String;
var
n, i: integer;
begin
i := length(Busca);
for n := 1 to length(Text) do
begin
if Copy(Text, n, i) = Busca then
begin
Delete(Text, n, i); Insert(Troca, Text, n);
end;
end;
Result:= Text;
end;
Att,
Edinei
function BuscaTroca(Text, Busca, Troca: String): String;
var
n, i: integer;
begin
i := length(Busca);
for n := 1 to length(Text) do
begin
if Copy(Text, n, i) = Busca then
begin
Delete(Text, n, i); Insert(Troca, Text, n);
end;
end;
Result:= Text;
end;
Att,
Edinei
GOSTEI 0