레코드를 사용하여 프로 시저/함수를 정의하고 실행하는 방법은 무엇입니까?

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.