Retirar Ponto

Question

Tenho um campo em minha tabela paradox onde � informando da seguinte maneira o registro �1.0.0.00.000� estou precisando de uma rotina para tirar esses pontos dos registros desse campo e fique somente desta maneira �100000000�

Agrade�o desde j�

Wbb · Answer

Voc� pode, por exemplo, usar a fun��o AnsiReplaceStr. O exemplo abaixo, faz com que todos os caracteres �A� do conte�do da vari�vel MinhaStr, sejam substituidos por �B�. No lugar do �A�, coloque �.� e no lugar do �B�, n�o coloque nada al�m de aspas simples.

AnsiReplaceStr(MinhaStr, �A�, �B�);

wbb

Lois.cc · Answer

Tente esta fun��o, ela funciona para qualquer string

function TiraPontos(x: String): String;
Var Cont:Integer;

Begin
Result:=��;
for Cont:=1 to Length(x) do
If x[Cont]<>�.� then
Result:=Result+x[cont]
End;

Luis Ortiz

F�rum Retirar Ponto #190796