On-The-Fly-Array als Übergabeparameter

**Akku**

Hallo,
ich habe folgendes Problem:
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.

Der Code sieht so aus:

zusammenfalten · markieren

Delphi-Quellcode:

			POutputObject = ^TOutputObject;

  TOutputObject = record

    Ref: TOutput;

    [b]fittingDim: array of Boolean;[/b]

  end;

  procedure RegisterOutputClass(ObjRef: TOutput; [b]format: array of Boolean[/b]);

var

  ListOfOutputObjects: TListOfOutputObjects;

implementation

procedure RegisterOutputClass(ObjRef: TOutput; [b]format: array of Boolean[/b]);

var

  POObject : POutputObject;

begin

  new(POObject);

  POObject^.Ref := ObjRef;

  [b]POObject^.fittingDim := format;[/b]

end;

Der Funktionsaufruf sieht so aus:

RegisterOutputClass(TOutText, [b][true, true, false, false, false][/b]); Bei der Zuweisung
[b]POObject^.fittingDim := format;[/b] bekomme ich allerdings immer die Fehlermeldung: Incompatible Types: 'Array' and 'dynamic array'

Weiß jemand weiter?

- Danke!

Gruß - Max

On-The-Fly-Array als Übergabeparameter

On-The-Fly-Array als Übergabeparameter

Forumregeln