请问这个函数是什么意思？

[intelserver]

function MibToId(Mib: string): string;
var
x: Integer;

function WalkInt(var s: string): Integer; // 获取1.2.3的1值，并且变量成为2.3
var
x: Integer;
t: string;
begin
x := Pos('.', s);
if x < 1 then
begin
t := s;
s := '';
end
else
begin
t := Copy(s, 1, x - 1);
s := Copy(s, x + 1, Length(s) - x);
end;
Result := StrToIntDef(t, 0);
end;

begin
Result := '';
x := WalkInt(Mib);
x := x * 40 + WalkInt(Mib);
Result := ASNEncOIDItem(x);
while Mib <> '' do
begin
x := WalkInt(Mib);
Result := Result + ASNEncOIDItem(x);
end;
end;

[wwx213]

前一段是取整数和小数

[tglong]

function WalkInt(var s: string): Integer; // 获取1.2.3的1值，并且变量成为2.3
var
x: Integer;
t: string;
begin
x := Pos('.', s);
if x < 1 then
begin
t := s;
s := '';
end
else
begin
t := Copy(s, 1, x - 1);
s := Copy(s, x + 1, Length(s) - x);
end;
Result := StrToIntDef(t, 0);
end;

以上程序用来取S的整数部分，如果小于‘0’则为‘0’