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.

That's because there is no easy solution.

Format uses a different array type, they are not variants. You'll have to convert the arrays.

Michael

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

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);

:= 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.

Roughly translated: "look at the documentation and use the right parameter type" :-) Thanks, now working.