Remover caracteres a esquerda em um campo de tabela?
Boa tarde companheiros...
Vejam se podem me ajudar...
Como faço para remover caracteres a esquerda em um campo string de uma tabela.
Por exmplo: o campo endereço da tabela possui o seguinte texto:
´Rua Rio Branco, 786´
Preciso tirar o ´Rua´ do campo e deixar somente o ´Rio Branco, 786´
Tem como fazer isto?
Desde já agradeço aos companheiros...
Um abraço a todos.
pablo
Vejam se podem me ajudar...
Como faço para remover caracteres a esquerda em um campo string de uma tabela.
Por exmplo: o campo endereço da tabela possui o seguinte texto:
´Rua Rio Branco, 786´
Preciso tirar o ´Rua´ do campo e deixar somente o ´Rio Branco, 786´
Tem como fazer isto?
Desde já agradeço aos companheiros...
Um abraço a todos.
pablo
Pablo_lima
Curtidas 0
Respostas
Koplin
11/08/2003
var s:string i:integer;
begin
s:= Table1Endereco.value;
i:= pos(´Rua ´,s)//retorna a posicao do 1o caractere na string s...
If i>0 Then
delete(s,i,4);//exclui a string na posicao com tamanho de 4 caract
Table1Endereco.value:=s;//subst o valor original por s
begin
s:= Table1Endereco.value;
i:= pos(´Rua ´,s)//retorna a posicao do 1o caractere na string s...
If i>0 Then
delete(s,i,4);//exclui a string na posicao com tamanho de 4 caract
Table1Endereco.value:=s;//subst o valor original por s
GOSTEI 0