pascal - Pascal：在类段错误上调用空方法

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;