On-The-Fly-Array als Übergabeparameter

[Ferber]

@Akku:

Zitat von Akku:

Ich würde gerne ein Array aus Booleans der Größe 5 on-the-fly erstellen, an eine Funktion übergeben und dort in einen record abspeichern.

Was meinst du mit 'in einem Record abspeichern' ?

Soll der Record in eine Datenbank ?

Du definierst Records und Zeiger auf Records. Sollen diese in einer Liste verwaltet werden ?

Hat 'FittingDim' was mit Installationsmaterial zu tun ?
Möchtest du damit kennzeichnen ob verschiedene Dimensionen verfügbar sind ?

Ein wenig mehr Hintergrundinfo wäre schon hilfreich !

Wenn deine Aufgabenstellung so ist wie ich nur vermuten kann, würde ich den Datentyp Integer verwenden und
die verschiedenen Wahrheitswerte herausmaskieren.

Aus einem Integer(=Longint=32Bit) erhältst du 32 Boolean(=256Bit) => Billawerbung: Sie sparen 28 Byte !

Zurück zur ursprünglichen Frage:

Delphi-Quellcode:

type
  TBoolArray = Array of Boolean;

procedure ArrayTest(a:TBoolArray);
begin
end;

function BoolArrayOf(const Values: array of Boolean):TBoolArray;
begin
  // hier code ähnlich 'VarArrayOf'
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ArrayTest(BoolArrayOf([True, False, True]));
end;

Denke so könnt's funktionieren.