Обнуление THandle

[godlsd]

Нашел в интернете такой вариант:

var
  GForm: TGForm;
  ShowConnectionForm: function():Boolean;
  hConnectionLib: THandle;

....

procedure TGForm.FormShow(Sender: TObject);
begin
  @hConnectionLib:=nil;
end;

Но в ответ компилятор выдаёт это:
[Error] main.pas(34): Left side cannot be assigned to


Ещё попался такой вариант:
FreeAndNil(hConnectionLib);
Второй вариант работает, но меня интересует почему не работает первый???
Ведь примеры в интернете не из головы пишут...

Вот отрывок этого примера:

Пример 2. Динамическая загрузка DLL
{... Здесь идет заголовок файла и определение формы TForm1 и ее экземпляра Form1}

var
      Form1: TForm1;
      GetSimpleText: function(LangRus: Boolean): PChar;
      LibHandle: THandle;

procedure Button1Click(Sender: TObject);
begin
  {"Чистим" адрес функции от "грязи"}
  @GetSimpleText := nil;
  {Пытаемся загрузить библиотеку}
  LibHandle := LoadLibrary('MYDLL.DLL');
  {Если все OK}
  if LibHandle >= 32 then begin
    {...то пытаемся получить адрес функции в библиотеке}
    @GetSimpleText := GetProcAddress(LibHandle,'GetSimpleText');
    {Если и здесь все OK}
    if @GetSimpleText <> nil then
      {...то вызываем эту функцию и показываем результат}
      ShowMessage(StrPas(GetSimpleText(True)));
  end;
  {И не забываем освободить память и выгрузить DLL}
  FreeLibrary(LibHandle);
end;

Если разрешите, могу кинуть ссылку, где я это взял.

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

hConnectionLib=0

трудно посмотреть что есть THandle?

[godlsd]

  hConnectionLib: THandle;

implementation

{$R *.dfm}

procedure TGForm.FormShow(Sender: TObject);
begin
  @hConnectionLib:=0;

В итоге:
[Error] main.pas(34): Left side cannot be assigned to

А на счёт THandle:
THandle = LongWord

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

я где то написал @?
посмотрите внимательно что я написал, нечего придумывать.

вы хоть знаете что такое @?

THandle = LongWord

ну и как итог, какая разница?

[godlsd]

Не сердитесь на меня, только начал изучать Delphi, всё время писал на C++, прошу прощения за невнимательность, спасибо за подсказку.

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

на будущее, @ это взятие адреса переменной, его вы изменить не можете(разве что через указатель, но присвоить ему нельзя, исключение в динамических функциях(точнее переменные типа функция), но там она не обязательна)

[GunSmoker]

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

Ведь примеры в интернете не из головы пишут...

Наивный

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

Не сердитесь на меня, только начал изучать Delphi, всё время писал на C++

Ну а в C++ вы как hConnectionLib (он же - LibHandle во втором примере) обнуляли?

Небось так?

hConnectionLib = NULL;

Или так?

hConnectionLib = 0;

В Delphi аналогично:

hConnectionLib := 0;

С nil (аналогом NULL) не пройдёт, потому что THandle описан в Delphi как число, а не указатель, как в C++.

P.S. И, конечно же, как я мог забыть про хит сезона:

PInteger(@hConnectionLib)^ := 0;

Расшифровка этого выражения остаётся вам домашним заданием - это хорошая тренировка. А вот и статейка подходящая.