Как установить внешнюю переменную в ноль внутри метода?

Question

Я хотел бы подкласс TThread, чтобы иметь класс потоков, который, когда FreeOnTerminate = True, устанавливает в nil его ссылочную переменную. Другими словами, я хочу сделать что-то вроде этого:

TFreeAndNilThread = class(TThread) 
private 
    FReferenceObj: TFreeAndNilThread; //?? // <-- here I'm holding the reference to myself 
protected 
    procedure Execute; 
    procedure DoTerminate; override; // <-- here I'll set FReferenceObj to nil after inherited (only if FreeAndNil = True) 
public 
    constructor Create(CreateSuspended: Boolean; var ReferenceObj); reintroduce; <-- untyped param like FreeAndNil and TApplication.CreateForm ?? 
end; 

Потребитель код должен быть таким:

var 
    MyThread: TFreeAndNilThread; 

begin 
    MyThread := TFreeAndNilThread.Create(True, MyThread); 
    MyThread.FreeOnTerminate := True; 
    MyThread.Resume; 
end; 

... и тогда я мог бы безопасно проверить Assigned(MyThread).

Я вижу, как FreeAndNil удается установить ссылочный объект, пройденный нетипизированным параметром, до nil, но он делает это локально. В моем случае я должен «сохранить» его в поле класса (FReferenceObj) и сделать его ноль в другом месте (DoTerminate).

Как я могу правильно передать, сохранить и получить его? Я могу думать о передаче и хранении адреса MyThread вместо MyThread, но я надеюсь, что есть более элегантный способ.

Спасибо!

Answer 1

Вам нужно сохранить указатель на переменную.

type 
    TFreeAndNilThread = class(TThread) 
    private 
    FReferenceObj: ^TFreeAndNilThread; 
    end; 

Затем вам нужно передать в ссылке в конструкторе:

type 
    TFreeAndNilThread = class(TThread) 
    private 
    FReferenceObj: ^TFreeAndNilThread; 
    public 
    constructor Create(var ReferenceObj: TFreeAndNilThread); 
    end; 

Затем вы можете реализовать это следующим образом:

constructor TFreeAndNilThread.Create(var ReferenceObj: TFreeAndNilThread); 
begin 
    inherited Create(True); 
    FreeOnTerminate := True; 
    FReferenceObj := @ReferenceObj; 
end; 

Когда поток умирает вы установите ссылку nil следующим образом:

ReferenceObj^ := nil; 

Для удобства, поскольку вы, скорее всего, относитесь к этому как к базовому классу, из которого вы получаете другие классы, вы можете предпочесть сделать этот параметр конструктором нетипизированным. Вы можете просто сделать это, не внося никаких изменений в код. Когда вы сделаете это конструктор выглядит следующим образом:

constructor Create(var ReferenceObj); 

---

Это будет только у вас хорошо, если код, который устанавливает ссылку на nil в том же потоке, что и другой код, который пытается ссылаться MyThread. В противном случае у вас будет состояние гонки.

Я уверен, что ваша идея не является решением вашей проблемы. Однако приведенное выше показывает, как взять ссылку на переменную, о которой вы просили.