如何使用記錄定義和運行程序/函數？

Question

我想用程序或函數定義記錄。 你可以幫助語法嗎？

Type TRec = record 
s: string; 
p: procedure; 
end; 

procedure run; 

Const 
    Rec: TRec = ('',run); 

procedure run; 
begin 
end; 

有可能在以後運行：

Rec[0].run; 

？

Answer 1

這工作（見代碼語法註釋）：

Type 
    TRec = record 
    s: string; 
    p: procedure; // As Ken pointed out, better define a procedural type: 
        // type TMyProc = procedure; and declare p : TMyProc; 
    end; 

procedure run; forward; // The forward is needed here. 
         // If the procedure run was declared in the interface 
         // section of a unit, the forward directive should not be here. 

Const 
    Rec: TRec = (s:''; p:run); // The const record is predefined by the compiler. 

procedure run; 
begin 
    WriteLn('Test'); 
end; 

begin 
    Rec.p; // Rec.run will not work since run is not a declared member of TRec. 
      // The array index (Rec[0]) is not applicable here since Rec is not declared as an array. 
    ReadLn; 
end.