...convert an octal number to integer?

Author: Katja Hoffmann
Homepage: http://www.katjahoffmann.gmxhome.de

Category: Math

function OctToInt(Value: string): Longint;
var 
  
i: Integer;
  int: Integer;
begin
  
int := 0;
  for i := 1 to Length(Value) do
  begin
    
int := int * 8 + StrToInt(Copy(Value, i, 1));
  end;
  Result := int;
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base