Rodrigo wrote: > a função abaixo deixa somente os números, eu ainda estou dando uma olhada > em expressões regulares e da pra fazer muita coisa, se alguém tiver > uma função mais rapida do que essa...ja ajuda... > > function adOnlyNumber(const Value: String): String; > var > I : Integer; > S : String; > begin > S := ''; > > for I := 0 to Length(Value) do > if (Value[I] in ['0'..'9']) then > S := S + Copy(Value,I,1); > > Result := S; > end;
Eu recomendo você inverter a lógica. Use delete para remover o que você não quer. É melhor para o gerenciador de memória alocar espaços menores do que espaços cada vez maiores (concatenação de strings). -- João Morais
