デルファイの匿名レコードコンストラクタ

Question

レコードをメソッドパラメータとして使用することは可能ですか？そのレコードのインスタンスを暗黙的に宣言することなく呼び出すことはできますか？

私はこのようなコードを書くことができるようにしたいと思います。

type 
    TRRec = record 
    ident : string; 
    classtype : TClass; 
    end; 

procedure Foo(AClasses : array of TRRec); 

このような方法、または同様の方法を呼び出します。

Foo([('Button1', TButton), ('Lable1', TLabel)]); 

私はまだDelphi 5に邪魔されています。

Answer 1

はい。ほぼ。

type 
    TRRec = record 
    ident : string; 
    classtype : TClass; 
    end; 

function r(i: string; c: TClass): TRRec; 
begin 
    result.ident  := i; 
    result.classtype := c; 
end; 

procedure Foo(AClasses : array of TRRec); 
begin 
    ; 
end; 

// ... 
Foo([r('Button1', TButton), r('Lable1', TLabel)]); 

Answer 2

constの配列で作業することも可能であるが、それは「gangph」によって与えられたソリューションほど柔軟ではありません。 （あなたのサイズを与える必要が特にあること（[0..1 ]）配列の配列の配列は、アノーマムであり、配列はそうではありません。

type 
    TRRec = record 
    ident : string; 
    classtype : TClass; 
    end; 

procedure Foo(AClasses : array of TRRec); 
begin 
end; 

const tt: array [0..1] of TRRec = ((ident:'Button1'; classtype:TButton), 
            (ident:'Lable1'; classtype:TLabel)); 

Begin 
    Foo(tt); 
end.