Retirar espaços a mais em registro de dbf

Delphi

19/03/2003

Amigos, preciso de uma rotina parecida com o ARRUMAR do excel para retirar espaços de um campo denominado NOME dentro de um dbf.
Ex. ETR SAO JOSE, deveria aparecer ETR SAO JOSE com apenas um espaço entre as palavras.

Obrigado pela ajuda nas outras questões...
Jeff


Jeffjames

Jeffjames

Curtidas 0

Respostas

Bilouro

Bilouro

19/03/2003

Amigos, preciso de uma rotina parecida com o ARRUMAR do excel para retirar espaços de um campo denominado NOME dentro de um dbf. Ex. ETR SAO JOSE, deveria aparecer ETR SAO JOSE com apenas um espaço entre as palavras. Obrigado pela ajuda nas outras questões... Jeff


Grande, a função [b:b87c35bc02]POS[/b:b87c35bc02] retorna a posição de um determinado caracter (ex.: ´ ´) faça um algoritimo que se achar ´ ´ por exemplo na posição 7 e 8 que tire um usando [b:b87c35bc02]delete[/b:b87c35bc02] ou [b:b87c35bc02]copy[/b:b87c35bc02]

restando dúvidas...

[]´s


GOSTEI 0
Dor_poa

Dor_poa

19/03/2003

usa o Trim
Trim(Campo).;

Ou

Function Trim(J:String):String; Export;
Begin
While J[Length(J)]=#32 do Dec(J[0]);
If Length(J)>1 then
While (J[1]=´ ´) do
Begin
Delete(J,1,1);
If Length(J)<=1 then J:=´´;
end;
Result:=J;
end;


GOSTEI 0
POSTAR