[Variants] 0 = Unassigned, wieso das denn?

[iKilledKenny]

Ich prüfe das immer so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var v : Variant;
    i : Integer;
begin
  i := 0;
  v := i;
  if VarIsNull (v) or VarIsEmpty (v) then
    ShowMessage ('Unassigned');
  v := Unassigned;
end;