如何在对象存在之前将记录字段设置为“对象过程”以便它可以运行

Question

我知道的标题很不时髦。

我有一系列文本行，需要按特定顺序执行特定操作。我通过定义以下记录结构想出了一种方法：

TProcessOrderRecord = record
  RecordTypes:       TByteSet;
  InitialiseProcedure: TPreScanProc;
  ProcessProcedure:    TProcessRecord;
  FinaliseProcedure:   TEndScanProc;
end;

AProcessOrderArray = array of TProcessOrderRecord;

Initialise 倾向于调用一个构造函数，该构造函数将填充宿主对象中的一个字段。

Process 将是对象上的一个过程，它将为每个与 RecordTypes 中的记录类型匹配的文本行调用。

Finalise 将倾向于调用析构函数，并可能在它知道已处理完整的记录集时进行任何检查。

处理这个数组的方法很简单：

procedure TImport.ScanTransferFile;
var
  i: integer;
  lArrayToProcess: AProcessOrderArray;
begin
  lArrayToProcess := SetUpProcessingOrder(NLPGApp.ImportType);
  for i := low(lArrayToProcess) to high(lArrayToProcess) do
  begin
    ProcessRecordType(lArrayToProcess[i].RecordTypes,     lArrayToProcess[i].InitialiseProcedure, lArrayToProcess[i].ProcessProcedure, lArrayToProcess[i].FinaliseProcedure);
  end;
end;

procedure TImport.ProcessRecordType(const RecordTypesToFind: TByteSet; PreScanProcedure: TPreScanProc; OnFindRecord: TProcessRecord; OnCompleteScan: TEndScanProc);
var
  lLineOfText: string;
  lIntegerRecordID: byte;
begin
  if Assigned(PreScanProcedure) then PreScanProcedure;
  try
    if assigned(OnFindRecord) then
    begin
      Reader.GoToStartOfFile;
      while not Reader.EndOfFile do
      begin
        lLineOfText := Reader.ReadLine;
        lIntegerRecordID := StrToIntDef(GetRecordID(lLineOfText), 0);
        if lIntegerRecordID in RecordTypesToFind then
        begin
          try
            OnFindRecord(lLineOfText);
          except
            on E: MyAppException do
            begin
            // either raise to exit or log and carry on
            end;
          end;
        end;
      end;
    end;
  finally
    // OnCompleteScan usually contains calls to destructors, so ensure it's called
    if Assigned(OnCompleteScan) then OnCompleteScan;
  end;
end;

我的问题是我想这样定义一个记录：

RecordTypes = [10]
InitialiseProcedure = ProcToCreateFMyObj
ProcessProcedure = FMyObj.do
FinaliseProcedure = ProcToFreeFMyObj

这编译得很好，但是当调用 ProcessProcedure 时，因为在设置 ProcessProcedure 时 FMyObj 为 nil，即使现在设置了 FMyObj，TMyObj 的实例也是 nil。有没有什么干净的方法可以让记录在调用时而不是在第一次分配时指向 FMyObj 的实例？

目前我已经在宿主对象上使用“调用者”方法，然后可以在需要时调用 FMyObj 实例，但这会创建一个包含大量单行方法的非常臃肿的对象。

编辑以澄清/复杂化问题

有时FObj 的一个实例可以处理多种类型的记录（通常如果它们具有主从关系）。在这种情况下，第一个记录类型的InitialiseProcedure将创建FObj，第二个记录的FinaliseProcedure将释放FObj，并且每个记录的ProcessProcedure可以引用FObj的不同过程（do1和@ 987654332@).

Answer 1

目前我已经在宿主对象上使用“调用者”方法，然后可以在需要时调用 FMyObj 实例，但这会创建一个包含大量单行方法的非常臃肿的对象。

这是正确的解决方案。由于实例在初始化时不可用，因此您别无选择。

当你使用of object 时，你定义了一个叫做method pointer 的东西。当您分配给方法指针类型的变量时，该实例在分配点被捕获。与方法指针关联的实例没有动态解析的机制。实现这一目标的唯一方法是使用运行时委托，这是您目前正在做的。通常情况下，使用另一层间接来解决问题！

包含许多方法的记录看起来非常像interface。我怀疑最优雅的解决方案将涉及interface。也许在调用时您可以调用一个返回interface 的函数。并且该函数将在调用时使用FMyObj 的值来定位相应的接口。

Answer 2

是的，可以对您的记录进行额外的运行时初始化：

var
  A: TProcessOrderRecord;

begin
  ..
  TMethod(A.ProcessProcedure).Data:= FMyObj;
  ..
end;

虽然我更喜欢不同的解决方案，比如您已经使用的解决方案。