Fórum exportar valores do banco de dados para texto #282378

Colega, você poderia montar uma pequena função para resolver este problema, abaixo segue um exemplo. A ideia e pegar o campo e verificar se é número (pode ser adaptada para outros fins).

Function SoNumero(sValor: String):String;
var sRetorno:String;
nTamanho:Integer;
begin
sRetorno:=´´;
For nTamanho:=1 to Length(sValor) do
begin
if sValor[nTamanho] in [´0´..´9´] then
sRetorno:=sRetorno + sValor[nTamanho];
end;

if sRetorno=´´ then sRetorno:=´0´;
Result:=sRetorno;
end;


Espero ter ajudado.