separar números de letras...
Gostaria de saber como posso separar números de letras, como no exemplo abaixo:
exemplo: 25845AB
quero obter somente o : 25845
exemplo: 25845AB
quero obter somente o : 25845
Thiagopedro
Curtidas 0
Respostas
Motta
07/12/2006
function Numerico(sAux: string): string;
var
i: Integer;
begin
result := ´´;
for i:=1 to Length(sAux) do
if sAux[i] IN [´0´..´9´] then
result := result + Copy(sAux, i, 1);
end;
var
i: Integer;
begin
result := ´´;
for i:=1 to Length(sAux) do
if sAux[i] IN [´0´..´9´] then
result := result + Copy(sAux, i, 1);
end;
GOSTEI 0