Вопрос по функции.

[ImmortalAlexSan]

Вот код функции:

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

Почему компилятор ругается на строчку:

function TForm1.LookupName: TInAddr;

Как это исправить? Просто функция ссылается на компонент на форме а без указания родительского объекта TForm1 она не распознает Edit1 и ругается на него. Всегда сталкивался с проблемой оформления таких функций.

[artemavd]

она не распознает Edit1 и ругается на него.

Может потому что на другой форме или в другом месте уже используется такой же Edit1?

Почему компилятор ругается на строчку:
Код:

function TForm1.LookupName: TInAddr;

А вы ее объявили перед использованием в проге? После слова type и перед словом private.


P.S. А вообще, мне кажется, что ваша функция должна иметь тип boolean, т.к. у вас имеется строка, которая возвращает результат этой функции:

Result := InAddr;

Может эта функция должна быть объявлена как-то так:

function TForm1.LookupName(TInAddr): Boolean;

P.P.S. Это всего лишь ИМНО!


P.P.P.S. И какой вообще тип имеет вот эта переменная: InAddr?

[ImmortalAlexSan]

После объявления функции всё работает Спасибо. Буду знать как такими функциями пользоваться.