Ето прост код:
procedure Test;
var
V: OleVariant;
begin
V := CreateOleObject('ADOX.Catalog');
try
// do something with V...
finally
V := Unassigned; // do we need this?
end;
end;
Трябва ли да използваме кода V := Unassigned
в края или V
ще е безплатен, когато съществува в обхвата на процедурата Test
? във VB задавате променливата на нищо. трябва ли да направим същото тук? т.е.:
function VarNothing: IDispatch;
// emulate VB function SET VarX = Nothing
var
Retvar: IDispatch;
begin
Retvar := nil;
Result := Retvar;
end;
// do something with V and finally:
V := VarNothing;