Указатели и Self

[alexprey]

Пишу блокиратор области памяти для многопоточного приложения. Возникла некоторая проблема с указателем на Self.
Как обстоит дело. Если вызвать Unlock у ключа, то возникает ошибка где пытаюсь взять указатель от Self и получаю ошибку. Если же вызывать напрямую освобождение ключа через FreeLocker, то все работает как надо. Жду помощи по решению проблемы, заранее благодарен

constructor TLockBaseKey.Create(pLocker: PBaseLocker);
begin
  inherited Create;
  Self.pLocker := pLocker;
end;

function TLockBaseKey.Unlock: boolean;
begin
  if pLocker <> nil then
    Result := pLocker.FreeLocker(@Self)
  else
    Result := false;
end;

function TDataLocker._CreateKey(permission: TDataAccessPermission; var pOutLockKey: PLockBaseKey): integer;
  var key: TLockDataKey;
      id: integer;
begin
  key := TLockDataKey.Create(@Self, permission);
  id := queCount;
  inc(queCount);
  SetLength(queList, queCount);
  queList[id] := @key;
  pOutLockKey := @key;
  Result := id;
end;

function TDataLocker.GetLocker(permission: TDataAccessPermission; var pOutLockKey: PLockBaseKey; isSleep: boolean; sleepPeriod, timeOut: cardinal): boolean;
  var id: integer;
begin
  Result := false;
  
  id := _CreateKey(permission, pOutLockKey);
  if (id = 0) or IsLocked(pOutLockKey) then
  begin
    Result := true;
    Exit;
  end;

  if not isSleep then Exit;

  LockLoop(pOutLockKey, isSleep, sleepPeriod, timeOut);

  Result := IsLocked(pOutLockKey);  
end;

function TBaseLocker.FreeLocker(pLockKey: PLockBaseKey): boolean;
  var id: integer;
begin
  Result := false;
  if pLockKey = nil then Exit;

  for id := 0 to queCount - 1 do
    if queList[id] = pLockKey then
    begin
      _DeleteKey(id);
      Result := true;
      Exit;
    end;
end;

//тестовый код
procedure TForm1.ThreadTestBtnClick(Sender: TObject);
  var locker: TDataLocker;
      key: PLockBaseKey;
begin
  locker := TDataLocker.Create;

  key := nil;
  LogWrite(logmtInfo, 'ThreadTest', 'test is start');
  if locker.GetLocker(LockAllow_Read, key) then
    LogWrite(logmtInfo, 'ThreadTest', 'lock on read')
  else begin
    LogWrite(logmtInfo, 'ThreadTest', 'lock on read is fail');
    Exit;
  end;

  if locker.FreeLocker(key) then
//if key.Unlock then
    LogWrite(logmtInfo, 'ThreadTest', 'key is unlock')
  else begin
    LogWrite(logmtInfo, 'ThreadTest', 'key unlock is fail');
    Exit;
  end;

  locker.Free;
end;

Покапавшись еще немного понял, что проблема возникает чуть раньше. Во время обращения на pLocker. Если рассмотреть код создания ключа _CreateKey, то после записи его в очередь видно, что в queList[0] и key.pLocker записан один и тот же адресс. Я не понимаю почему так получается

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

TObject и все что от него(то есть любой class)
это уже указатель на сам объект.

[alexprey]

Пепел Феникса, в каких тогда случаях нужно использовать указатели? Для структур?

И как быть с такой конструкцией

TLockBaseKey = class
    private
      pLocker: PBaseLocker;
  end;

TBaseLocker = class
    private
      queList: array of PLockBaseKey;
      queCount: integer;
  end;

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

взятие указателя будет нужно для структур и обычных переменных.
для объектов же просто привести переменную-объект/Self к указателю(а может и не надо, не помню)


посмотрите маленький пример:

TIntClass=class
 public
  i:integer;
end;

var i1,i2,i3:TIntClass;
begin
 i1:=TIntClass.Create;
 i2:=i1;
 i3:=i1;
 i1.i:=50;
 ShowMessage(IntToStr(i1.i));
 i2.i:=500;
 ShowMessage(IntToStr(i1.i));
 i1.i:=-1;
 ShowMessage(IntToStr(i3.i));

я думаю станет ясно что указатель на класс нужно выкинуть, и выйдет тогда просто

Array of TLockBaseKey

одно но правда, освобождение и создание объектов висит на ваших плечах.

[alexprey]

Сообщение от Пепел Феникса

одно но правда, освобождение и создание объектов висит на ваших плечах.

да это то понятно. Так как быть с такой штукой?

type
   TBaseObj = class
      parent: TExObj;
   end;
   TExObj = class
      child: array of TBaseObj;
   end;

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

а что там не понятно?

[alexprey]

[Error] ThreadAPI.pas(22): Undeclared identifier: 'TBaseLocker'

[alexprey]

В принципе все работает и так, но вот в создании ключа @Self передается неверный и поэтому из ключа я не могу обратиться к блокиратору, который выдал этот ключ

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

потому что надо просто Self, а не @Self, я что зря выше распинался?

[alexprey]

да блин не могу я просто так передать Self, потому что там конструктор принимает PBaseLocker, TBaseLocker я не могу указать, т.к. он объявлен дальше, а объявить его раньше не могу, так как тот ссылается на ключ.