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