Int32 on input should have specified numbers count on output

[WojTec]

This what I have:

Delphi-Quellcode:

function NumberDigits(ANumber: Int32; ADigits: Byte = 5): Cardinal;
var
  A: Cardinal;
begin
  A := Abs(ANumber);
  Result := Round(A * Power(10,  ADigits - Log10(A)));
end;

Result is always 1 with ADigits 0s?

Zitat von jfheins:

with fixed number of significant figures?

Exactly! I'm trying make own serial protection to stop little "crackers"

// Edited

@DeddyH, your function working