Mit CONST geht es auch im neuen delphi nicht.
Bei Record-Konstanten musste man auch die Feldnamen mit angeben, aber hier funktioniert es so nicht.
Delphi-Quellcode:
const
CRec: array[0..1] of TRec = // geht
(
(s: 'Hallo'; i: 1),
(s: 'Selber Hallo'; i: 2)
);
machwas([(s: 'Hallo', i: 1), (s: 'Selber Hallo', i: 2)]); // geht nicht
k.A. warum, aber scheinbar wird bei diesem
[ kein "array of TRec" begonnen, sondern ein "array of string", Anhand des ersten Feldes darin, was ein String ist.
So geht es, mit etwas aktuellerem Delphi, was nur halb so alt ist.
Bei Delphi 5 dürfte die Variante mit "externe Funktion" gehen.
Delphi-Quellcode:
type
TRec = record
s: string;
i: integer;
constructor Create(s: string; i: Integer);
//class operator Implicit(Values: array of const): TRec;
end;
// der als "class function C(s: string; i: Integer): TRec; static;" anstatt dem constructor
// oder als externe Funktion "function Rec(s: string; i: Integer): TRec;" , für noch Kürzer
constructor TRec.Create(s: string; i: Integer);
begin
Self.s := s; // wenn als "function" dann Result.s := s;
Self.i := i;
end;
procedure machwas(a: array of TRec);
begin
end;
procedure TForm13.FormCreate(Sender: TObject);
begin
machwas([TRec.Create('Hallo', 1), TRec.Create('Selber Hallo', 2)]);
//machwas([['Hallo', 1], ['Selber Hallo', 2]]); // IMPLICIT geht nicht
//machwas([TRec(['Hallo', 1]), TRec(['Selber Hallo', 2])]); // EXPLICIT geht auch nicht
end;
Oder unschön als
procedure machwas(Values: array of const);
machwas(['Hallo', 1, 'Selber Hallo', 2]);
und dann das eine Array intern auf die Felder des TRec-Array aufteilen.