You should do:
type MyVarArray = array of variant; and then procedure TUnyokedFrontendForm.OutputWriteF(const str: widestring; values: MyVarArray; fg: TColor= clBlack; bg: TColor= clDefault); Darius On 25 mei '12, Mark Morgan Lloyd wrote: > How should I put this? > > procedure TUnyokedFrontendForm.OutputWriteF(const str: widestring; > values: array of variant; fg: TColor= clBlack; bg: TColor= clDefault); > > var scratch: widestring; > > begin > scratch := Format(str, values); > > As above, I get > > unyokedfrontendcode.pas(354,32) Error: Incompatible type for arg no. 2: > Got "Open Array Of Variant", expected "Array Of Const" > > I was caught by this one years ago, and at the time the Delphi > developers I was in contact with had no easy solution.
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
