Hallo zusammen,
Ich seh mal wieder den Wald vor lauter Bäumen nicht.
Ich möchte einer Methode ein array of record als open-array-parameter übergeben, soweit, so einfach:

markieren

Code:

type
  TRec = record
    s: string;
    i: integer;
  end;
procedure machwas (a: array of TRec);

Aber wie, um himmelswillen, ruf ich die jetzt auf?
Ich hatte was von

markieren

Code:

machwas ([('Hallo', 1), ('Selber Hallo', 2)]);

geträumt, is aber nich.

Kann mir mal jemand auf die Sprünge helfen, bitte!

Herzliche Grüße
Marco

Also ich würde noch eine Variable dazwischen schubsen um besser damit umgehen zu können.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TRec = record
    s: string;
    i: integer;
  end;
  TRecs = array of TRec;

noch ein
  Recs: TRecs;
um damit spielen zu können.



procedure TuWasRein(const s: string; const i: Integer);
begin
  SetLength(Recs, Length(Recs) +1);
  Recs[Length(Recs)].s := s;
  Recs[Length(Recs)].i := i;
end;

function HolWasRaus(const AIndex: Integer): TRec;
begin
  Result.s := Recs[AIndex].s;
  Result.i := Recs[AIndex].i;
end;

Nur so mal hier in Editor getippst, nicht getestet.

Delphi 5 habe ich gerade nicht zur Hand, aber mit einem const solle es gehen:

markieren

Delphi-Quellcode:

procedure machwas(const a: array of TRec);
begin
  ...
end;

Wenn in dem TRec der Integer Wert als eine Art Index genutzt werden soll könnte man auch gleich auf eine TStringList umsatteln falls es das bei Delphi 5 schon gab.

Ich überlege gerade
ist Delphi5 Lazarus vorraus?

Ich wette es liegt an Packages von Fremdherstellern?

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.

markieren

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.

zusammenfalten · markieren

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.