Einzelnen Beitrag anzeigen

Akku

Registriert seit: 27. Jan 2006
29 Beiträge
 
#1

On-The-Fly-Array als Übergabeparameter

  Alt 2. Feb 2006, 23:22
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:

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
  Mit Zitat antworten Zitat