Função para retirar espaços e maiusculas
17/03/2003
0
Amigos, agora preciso de uma função que retire os espaços entre palavras de uma tabela DBF que muitas vezes possui muito mais que um espaço entre palavras dificultando o sistema de pesquisas para geoprocessamento. existe uma função parecida no Excel mas quando vc tem de retirar os espaços de uma tabela com 100.000 itens é muito mais complicado! Por ultimo preciso de uma terceira função que transforme a primeira palavra de uma serie em maiuscula e o restante em minuscula. Exemplo completo do que preciso adaptando a primeira função que me enviaram... ´ETR ENG JOAO SAMPAIO´ em uma tabela DBF com o nome do campo ´NOME´, deveria ser corrigida para ´Estrada Engenheiro João Sampaio´. Agadeço a que poder me ajudar.
Jeffjames
Curtir tópico
+ 0
Responder
Posts
17/03/2003
Anonymous
para redirar os espaços :
ex:
var
I:integer
palavra:string;
begin
palavra:= dbedit1.text
for i := 1 do length(palavrar) do //percore cada posicao da string
begin
if copy(´ ´,palavra)=´ ´ then //verifica se na posicao de i tem ´ ´
delete(palavra,i,1);//deleta o ´ ´ na posita de i
end;
espero ter ajudado : D
ex:
var
I:integer
palavra:string;
begin
palavra:= dbedit1.text
for i := 1 do length(palavrar) do //percore cada posicao da string
begin
if copy(´ ´,palavra)=´ ´ then //verifica se na posicao de i tem ´ ´
delete(palavra,i,1);//deleta o ´ ´ na posita de i
end;
espero ter ajudado : D
Responder
Clique aqui para fazer login e interagir na Comunidade :)
