rgreat,
Ну что же делать если ты такой глупенький. Имелось введу после компиляции. И потом пояснялось что до компиляции самого кода, приведения нужны дабы обозначить область информационной структурированной базы.
В главном сообщение
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
procedure FreeAndNil(const [ref] Obj: TObject);
var
vTmp: TObject;
begin
if Obj <> nil then
begin
vTmp := Obj;
TObject(Addr(Obj)^) := nil;
vTmp.Destroy;
end;
end;
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Project1.dpr.12: begin
0041BD90 55 push ebp
0041BD91 8BEC mov ebp,esp
Project1.dpr.13: if Obj <> nil then
0041BD93 833800 cmp dword ptr [eax],$00
0041BD96 740F jz $0041bda7
Project1.dpr.15: vTmp := Obj;
0041BD98 8B10 mov edx,[eax]
Project1.dpr.16: TObject(Addr(Obj)^) := nil;
0041BD9A 33C9 xor ecx,ecx
0041BD9C 8908 mov [eax],ecx
Project1.dpr.17: vTmp.Destroy;
0041BD9E 8BC2 mov eax,edx
0041BDA0 B201 mov dl,$01
0041BDA2 8B08 mov ecx,[eax]
0041BDA4 FF51FC call dword ptr [ecx-$04]
Project1.dpr.19: end;
0041BDA7 5D pop ebp
0041BDA8 C3 ret
0041BDA9 8D4000 lea eax,[eax+$00]
AtomicExchange
1.
2.
3.
4.
procedure FreeAndNil(var Obj);
begin
TObject(AtomicExchange(Pointer(Obj), nil)).Free;
end;
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Project1.dpr.10: begin
0041BD90 55 push ebp
0041BD91 8BEC mov ebp,esp
Project1.dpr.11: TObject(AtomicExchange(Pointer(Obj), nil)).Free;
0041BD93 33D2 xor edx,edx
0041BD95 F08710 lock xchg [eax],edx
0041BD98 8BC2 mov eax,edx
0041BD9A E88198FEFF call TObject.Free
Project1.dpr.12: end;
0041BD9F 5D pop ebp
0041BDA0 C3 ret
0041BDA1 8D4000 lea eax,[eax+$00]
Тут то мы и видим заветное приведение TObject.Free
Точно так же, как и в оригинальной функции
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
procedure FreeAndNil(var Obj);
{$IF not Defined(AUTOREFCOUNT)}
var
Temp: TObject;
begin
Temp := TObject(Obj);
Pointer(Obj) := nil;
Temp.Free;
end;
{$ELSE}
begin
TObject(Obj) := nil;
end;
{$ENDIF}
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Project1.dpr.17: begin
0041BD90 55 push ebp
0041BD91 8BEC mov ebp,esp
Project1.dpr.18: Temp := TObject(Obj);
0041BD93 8B10 mov edx,[eax]
Project1.dpr.19: Pointer(Obj) := nil;
0041BD95 33C9 xor ecx,ecx
0041BD97 8908 mov [eax],ecx
Project1.dpr.20: Temp.Free;
0041BD99 8BC2 mov eax,edx
0041BD9B E88098FEFF call TObject.Free
Project1.dpr.21: end;
0041BDA0 5D pop ebp
0041BDA1 C3 ret
0041BDA2 8BC0 mov eax,eax
Подмечаем тот факт, что никаких приведений не было. В любом случае, объект лежит в eax
