高手帮忙看看这是什么数据类型呢？

[core2]

function  LocalIP: string;
type
  TaPInAddr = array   [0..10]   of   PInAddr;   
  PaPInAddr = ^TaPInAddr;                       
var
  phe:PHostEnt;   //这个是什么类型呢？
  pptr:PaPInAddr; //这个事什么类型呢？
  Buffer:array[0..63] of char;
  I:Integer;
  GInitData:TWSADATA;
  begin   
     WSAStartup($101,GInitData);
     Result:='';
     GetHostName(Buffer,   SizeOf(Buffer));
     phe:=GetHostByName(buffer);
     if phe = nil then Exit;
     pptr:= PaPInAddr(Phe^.h_addr_list);
     I := 0;
     while pptr^[I] <> nil do begin
        result:=StrPas(inet_ntoa(pptr^[I]^));
        Inc(I);
     end;
     WSACleanup;
end;

[shuihan20e]

  phe:PHostEnt;   //这个是什么类型呢？
  pptr:PaPInAddr; //这个事什么类型呢？

record类型，算是个结构体Struct,VB中也有
可以按住Ctrl+左键来找到其定义 的地方

[zz1001]

record类型?

[bdmh]

PInAddr是一个指针,在winsock单元中
PInAddr = ^TInAddr;
{$EXTERNALSYM in_addr}
in_addr = record
case integer of
0: (S_un_b: SunB);
1: (S_un_w: SunW);
2: (S_addr: u_long);
end;
TInAddr = in_addr;

TaPInAddr是PInAddr 的数组