帕斯卡爾：在一個類上調用一個空方法segfaults

Question

我有一個非常鮮明的類。

unit StuffClass; 

{$mode objfpc}{$H+} 

interface 

type 
    TStuffClass = class 
    public 
     procedure Update; 
    end; 

implementation 

procedure TStuffClass.Update; 
begin 

end; 

end. 

創建它的一個實例，並調用其Update過程導致程序SIGSEGV ..

什麼..？它沒有做任何事情。

我使用的是Freepascal（& Lazarus）32位版本。

它爲什麼這樣做？

編輯：這裏是調用位：

//Creating it 
constructor TEngine.Create(TV: pSDL_Surface); 
begin 
    Self.TV := TV; 
    Self.StuffClass.Create; 
end; 

function TEngine.Update: Boolean; 
begin 
    WriteLN('Test'); 
    SDL_PumpEvents; 

    Self.StuffClass.Update; //Crashes here. 
    Update := True; 
end; 

Answer 1

你創建它錯了。

您需要返回的對象實例存儲到一個變量，然後使用該變量（參考），而不是：

constructor TEngine.Create(TV: pSDL_Surface); 
begin 
    Self.TV := TV; 
    Self.StuffClass := TStuffClass.Create; 
end; 

現在你的代碼的其餘部分可以用它：

procedure TEngine.SomeOtherProcedure; 
begin 
    Self.StuffClass.Update; 
end;