🚀 go-pugleaf

> function GetPremBreakDown(var ACostTypeArray: array of TCostBreakDown;
>                           AListOfCosts: array of TCostStruct): boolean;
> begin
>     Finalize(ACostTypeArray);
>     SetLength(ACostTypeArray, Length(CostTypeArray)+1);
> end;


try this:

type
    TCostTypeArray =  array of TCostBreakDown;
    TListOfCosts: array of TCostStruct

 function GetPremBreakDown(var ACostTypeArray: TCostTypeArray ;
                           AListOfCosts: TListOfCosts): boolean;


??

Brendan Bosman


"Dion" <dion@softek.co.za> wrote in message
news:3dde320c@newsgroups.borland.com...
> Hi,
>
> Why can't I do the following?
>
> function GetPremBreakDown(var ACostTypeArray: array of TCostBreakDown;
>                           AListOfCosts: array of TCostStruct): boolean;
> begin
>     Finalize(ACostTypeArray);
>     SetLength(ACostTypeArray, Length(CostTypeArray)+1);
> end;
>
> I want to pass GetPremBreakDown an array declared in the calling proc, and
> add items to the array. However, I get an 'Incompatible types' error on
the
> SetLength(ACostTypeArray... line. Why???
>
> Thanks,
> Dion.
>
>