Странно записанные переменные

[ImmortalAlexSan]

function TForm1.LookupName: TInAddr;
var
  HostEnt: PHostEnt;
  InAddr: TInAddr;
begin
  if Pos('.', AddressEdit.Text) > 0 then
    InAddr.s_addr := inet_addr(PChar(AddressEdit.Text))
  else
  begin
    HostEnt := gethostbyname(PChar(AddressEdit.Text));
    FillChar(InAddr, SizeOf(InAddr), 0);
    if HostEnt <> nil then
    begin
      with InAddr, HostEnt^ do
      begin
        S_un_b.s_b1 := Byte(h_addr^[0]);
        S_un_b.s_b2 := Byte(h_addr^[1]);
        S_un_b.s_b3 := Byte(h_addr^[2]);
        S_un_b.s_b4 := Byte(h_addr^[3]);
      end;
    end
  end;
  Result := InAddr;
end;

Вот функция, объянсите пожалуйста, почему как-то странно записаны переменные S_un_b.s_b1 до S_un_b.s_b4?Почему бы их просто незаписать как б1 б2 б3 б4?и h_addr^[0] - что за запись такая? if HostEnt <> nil then, что такое nil?
if Pos('.', AddressEdit.Text), и что такое здесь Pos?

[Utkin]

Сообщение от ImmortalAlexSan

Вот функция, объянсите пожалуйста, почему как-то странно записаны переменные S_un_b.s_b1 до S_un_b.s_b4? Почему бы их просто незаписать как б1 б2 б3 б4?

Существуют различные стандарты на запись переменных , возможно автор придерживался одного из них. Например, можно прочитать здесь - http://ru.wikipedia.org/wiki/Венгерская_нотация

и h_addr^[0] - что за запись такая?

Это работа с указателями.

if HostEnt <> nil then, что такое nil?

nil - это специальное значение означает нуль или ничего, отсутствие чего-либо. То есть, если HostEnt не инициализирована или принудительно освобождена, то будет выполнено присвоение переменных.

if Pos('.', AddressEdit.Text), и что такое здесь Pos?

Pos это стандартная функция поиска подстроки (в данном случае ищется точка) в строке AddressEdit.Text. Она возвращает позицию (номер символа) или значение меньше единицы в случае, если такой символ в строке отсутствует. То есть, в данном случае, если в адресе присутствует точка, то прога пытается получить какой-то адрес.

[raxp]

...видимо тот, кто создавал (переводил) winsock, показалось удобнее переделайте как вам больше нравиться
...<>nil проверка на возвращаемый указатель, точнее его отсутствие
...pos ищет точку, своего рода проверка на вшивость ip адреса: xxx.xxx.xxx.xxx

увы-увы-увы, клацал долго...

[ImmortalAlexSan]

Спасибо, всё стало понятно. С меня весы!

[Utkin]

Сообщение от ImmortalAlexSan

Спасибо, всё стало понятно. С меня весы!

Лучше бы ты Делфи учил, а не на весы клацал, ну да подрастешь поймешь .

[ImmortalAlexSan]

Utkin, я обращаюсь сюда только тогда, когда сам ничего найти не могу по вопросу, или не могу дойти до истины. =)