🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: borland.public.delphi.language.objectpascal
Article #32478

array of ... ???

#32478
From: Dion
Date: Fri, 22 Nov 2002 13:30
17 lines
1408 bytes
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.
Technical Details
Message-ID: <3dde320c@newsgroups.borland.com>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-08!supernews.com!newsfeed.news2me.com!newsfeed.icl.net!newsfeed.fjserv.net!opentransit.net!fu-berlin.de!news.uni-x.net!newsgroups.borland.com!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 109d30,27bfb155f17a25ee,start
X-Google-Attributes: gid109d30,public
X-Google-ArrivalTime: 2002-11-22 06:15:38 PST
From: "Dion" <dion@softek.co.za>
Newsgroups: borland.public.delphi.language.objectpascal
Subject: array of ... ???
Date: Fri, 22 Nov 2002 15:30:53 +0200
Lines: 19
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4522.1200
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200
NNTP-Posting-Host: 155.239.166.85
Message-ID: <3dde320c@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1037971980 155.239.166.85 (22 Nov 2002 05:33:00 -0800)
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-08!supernews.com!newsfeed.news2me.com!newsfeed.icl.net!newsfeed.fjserv.net!opentransit.net!fu-berlin.de!news.uni-x.net!newsgroups.borland.com!not-for-mail