delphi - 我如何使用 "is"来检查或检查一个确切的类(不是后代)？

Question

TBase = class(TObject)
...

TDerived = class(Tbase)
...

if myObject is TBase then ...

如果 myObject 属于 TDerived 类，我能否以某种方式对其进行编码并让它返回 false？

Answer 1

如果您需要准确的类类型检查，请使用 ClassType 方法:

type

TBase = class(TObject)
end;

TDerived = class(Tbase)
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 A: TBase;

begin
  A:= TBase.Create;
  if A.ClassType = TBase then ShowMessage('TBase');  // shown
  A.Free;
  A:= TDerived.Create;
  if A.ClassType = TBase then ShowMessage('TBase again'); // not shown
  A.Free;
end;