Инициализация структуры: W1036 Variable 'LpAdapterAddresses' might not have been initialized

[malor]

Код функции:

var
  bf: Cardinal;
  LpAdapterAddresses: PIP_ADAPTER_ADDRESSES;
  .......... etc ..............
begin

  if WSAStartup($0202, m_data) <> 0 then
  begin
    Result := false;
    Exit;
  end;

  hostlen := NI_MAXHOST;     // 1025
  servlen := NI_MAXSERV;     // 32

  Result := true;                        
  AInfoStr := '';
  try
    bf := 0;
    if GetAdaptersAddresses(AF_INET, 0, nil, nil, @bf) <> ERROR_BUFFER_OVERFLOW then Abort;
    try
      GetMem(LpAdapterAddresses, bf);

      if GetAdaptersAddresses(AF_INET, 0, nil, LpAdapterAddresses, @bf) <> ERROR_SUCCESS then Abort;

      while LpAdapterAddresses <> nil do
      begin
        // Здесь что-то делаем.
      end;
    finally
      FreeMem(LpAdapterAddresses, bf);
    end;
  except
    Result := false;
    AInfoStr := '';
  end;

  WSACleanup;     
end;

Взят из поста про GetAdaptersAddresses.

Дельфи сообщает:

W1036 Variable 'LpAdapterAddresses' might not have been initialized

Как вам известно `PIP_ADAPTER_ADDRESSES` это тип указателя на структуру:

  _IP_ADAPTER_ADDRESSES = record
    Union: record
      case Integer of
        0: (
          Alignment: ULONGLONG);
        1: (
          Length: ULONG;
          IfIndex: DWORD);
    end;
    Next: PIP_ADAPTER_ADDRESSES;
    AdapterName: PAnsiChar;
    FirstUnicastAddress: PIP_ADAPTER_UNICAST_ADDRESS;
    FirstAnycastAddress: PIP_ADAPTER_ANYCAST_ADDRESS;
    FirstMulticastAddress: PIP_ADAPTER_MULTICAST_ADDRESS;
    FirstDnsServerAddress: PIP_ADAPTER_DNS_SERVER_ADDRESS;
    DnsSuffix: PWCHAR;
    Description: PWCHAR;
    FriendlyName: PWCHAR;
    PhysicalAddress: array [0..MAX_ADAPTER_ADDRESS_LENGTH - 1] of BYTE;
    PhysicalAddressLength: DWORD;
    Flags: DWORD;
    Mtu: DWORD;
    IfType: DWORD;
    OperStatus: IF_OPER_STATUS;
    Ipv6IfIndex: DWORD;
    ZoneIndices: array [0..15] of DWORD;
    FirstPrefix: PIP_ADAPTER_PREFIX;
  end;

Как здесь быть с инициализацией, в подобном случае?

Delphi XE

[Stilet]

Это не ошибка а предупреждение.
Насчет инициализации можно попробовать ZeroMemory(LpAdapterAddresses,sizeo f(LpAdapterAddresses))

[malor]

Вставил "ZeroMemory(LpAdapterAddresses, sizeof(LpAdapterAddresses));"
сразу после "GetMem(LpAdapterAddresses, bf);" но ворнинг сохранился.

[Stilet]

Ну и пес с ним. Если прога нормально работает то предупреждение всего лишь буревестник косяков, которые могут и не появится )

[Пепел Феникса]

LpAdapterAddresses:=nil

вставить в начале функции и перестанет.

[malor]

Сработало.

Спасибо!