[o---oOo---o]

function getlength(a: integer):integer;
var alength: integer;
begin
try
alength:=length(inttostr(a));
result:=length;
except
showmessage('Invalid value');
end;
end;