array of record zuweisung

[himitsu]

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.