Elevando una cifra

[[Delphius]]

Y digo yo... ¿porqué no lo generalizamos?

Algo así:

Código Delphi [-]
function TForm1.Digits(Number: integer): integer;
begin
  result := Length(IntToStr(Number));
end;

function Tform1.RoundUpNumber(Number: integer): integer;
var dig: integer;
begin
  dig := Digits(Number) - 1;
  result := trunc((round(Number * Power(0.1,Dig)) * Power(10,dig)));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(RoundUpNumber(35459)));
end;

Saludos,