Najlepszy sposób na sprawdzenie, czy zmienna jest zerowa?

Question

Powszechnym warunkiem, który powinny spełniać wszystkie programy, jest sprawdzenie, czy zmienne zostały przypisane, czy nie.

Take poniższych stwierdzeń:

(1)

if Assigned(Ptr) then 
begin 
    // do something 
end; 

(2)

if Ptr <> nil then 
begin 
    // do something 
end; 

Jaka jest różnica między Assigned(Ptr) i Ptr <> nil?

Answer 1

To zazwyczaj taka sama ... z wyjątkiem kiedy sprawdzić funkcję ...

function mfi: TObject; 
begin 
    Result := nil; 
end; 

procedure TForm1.btn1Click(Sender: TObject); 
type 
    TMyFunction = function: TObject of object; 
var 
    f: TMyFunction; 
begin 
    f := mfi; 

    if Assigned(f) then 
    begin 
    ShowMessage('yes'); // TRUE 
    end 
    else 
    begin 
    ShowMessage('no'); 
    end; 

    if f <> nil then 
    begin 
    ShowMessage('yes'); 
    end 
    else 
    begin 
    ShowMessage('no'); // FALSE 
    end; 
end; 

Z drugiej składni, to sprawdzić wynik funkcji nie sama funkcja ...

Answer 2

Jeśli chodzi o wydajność, nie ma różnicy. Osobiście wolę drugą formę, ponieważ uważam, że ludzie mogą szybciej analizować znaczenie.