Código Delphi [-] i:integer; Result:=''; S := '12.345.126-K'; for i=1 to length(S) do if S[i] in ['0'..'9'] then Result := Result + S[i]
i:integer; Result:=''; S := '12.345.126-K'; for i=1 to length(S) do if S[i] in ['0'..'9'] then Result := Result + S[i]