链接器消除的符号[关闭]

Question

Shape_class=class(tobject)

  Constructor create;
  Destructor Demolish;

Public
  Shape:tshape;
  Shape_width,
  Shape_height,
  Shape_left,
  Shape_top:integer;
End;

Function add_shape
  :Shape_class;
Begin
  Result:=shape_class.create;
End;

代码已简化，但说明了我的代码中发生的情况。调试器会忽略对构造函数的调用。如果我将指针悬停在调用中的 class_name 标识符上，则提示会通知我“链接器消除的符号”。

我不知道是什么原因造成的。我想知道它是否与堆栈的大小有关，但是增加堆栈没有区别。

Answer 1

这是一个自我毁灭的答案（因为它只是一个长评论）

如果没有SSCCE，您的问题将无法回答

我构建了一个小型控制台应用程序来测试您的代码，如目前所示

program so_21982168;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  SysUtils;

type
  Shape_class = class( tobject )

    Constructor create;
    Destructor Demolish;

  Public
    Shape : tobject;
    Shape_width, Shape_height, Shape_left, Shape_top : integer;
  End;

Function add_shape : Shape_class;
Begin
  Result := Shape_class.create;
End;

{ Shape_class }

Constructor Shape_class.create;
Begin
  Writeln( 'shape_class.create called' );
  Shape := tobject.create;
End;

Destructor Shape_class.Demolish;
Begin
  Writeln( 'shape_class.Demolish called' );
  Shape.Free;
End;

procedure Test;
var
  LInstance : Shape_class;
Begin
  Writeln( 'Test ENTER' );
  LInstance := Shape_class.create;
  try
    Assert( Assigned( LInstance ) );
  finally
    LInstance.Free;
  End;
  Writeln( 'Test LEAVE' );
End;

Begin
  try

    Test;

  except
    on E : Exception do
      Writeln( E.ClassName, ': ', E.Message );
  End;

  Readln;

End.

输出是

测试 ENTER shape_class.create 调用 测试离开

• destructor Demolish不是被Free调用
• 存在内存泄漏（Shape 实例将不会被释放）
• 根本没有没有提示