Tips (1541)

Tip Bewertung (3):

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;