Retirar Ponto
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á
Agradeço desde já
Misael
Curtidas 0
Respostas
Wbb
26/10/2003
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
AnsiReplaceStr(MinhaStr, ´A´, ´B´);
wbb
GOSTEI 0
Lois.cc
26/10/2003
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
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
GOSTEI 0