レコードを使用してプロシージャ/関数を定義して実行するにはどうすればよいですか？

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.