Title: Array of const and TVarRec
Question: Making a function with indefinite number of parameters can be a good idea, and Delphi has a lot of help on the subject.
Unfortunately the help is scattered over several pages and the information can be hard to find.
Answer:
You probably have tried the Format() function in Delphi. The first parameter is the format string and the last is an array of const:
function Format(const Format: string; const Args: array of const): string;
The array of const gives you the freedom to add strings, integers, floats and so on and having these formatted into a string. And there is no limit to how many items you can add.
The way Delphi deals with this issue is that the array of const really is a array of TVarRec's.
A TVarRec is a record of the following type (taken from Delphi 3's on-line help):
TVarRec = record
case Byte of
vtInteger: (VInteger: Integer; VType: Byte);
vtBoolean: (VBoolean: Boolean);
vtChar: (VChar: Char);
vtExtended: (VExtended: PExtended);
vtString: (VString: PShortString);
vtPointer: (VPointer: Pointer);
vtPChar: (VPChar: PChar);
vtObject: (VObject: TObject);
vtClass: (VClass: TClass);
vtWideChar: (VWideChar: WideChar);
vtPWideChar: (VPWideChar: PWideChar);
vtAnsiString: (VAnsiString: Pointer);
vtCurrency: (VCurrency: PCurrency);
vtVariant: (VVariant: PVariant);
The type of the value inside the TVarRec is determined by the VType value.
This gives you the flexibility to add either type you wish to the array of const, like in the Format() function:
Format( '%s is a string, %d is an integer', ['string',10] );
Using the array of const in your own procedure is no big deal. Take a look at this example:
procedure VarArraySample( AVarArray : array of const );
var
i : integer;
begin
for i := 0 to High(AVarArray) do
do_something;
end;
The function High() returns the last index of the array.
You can also convert the contents of the TVarRec. This example is taken from the Delphi on-line help and revamped a bit. The function converts a TVarRec to a string:
function VarRecToStr( AVarRec : TVarRec ) : string;
const
Bool : array[Boolean] of string = ('False', 'True');
begin
case AVarRec.VType of
vtInteger: Result := IntToStr(AVarRec.VInteger);
vtBoolean: Result := Bool[AVarRec.VBoolean];
vtChar: Result := AVarRec.VChar;
vtExtended: Result := FloatToStr(AVarRec.VExtended^);
vtString: Result := AVarRec.VString^;
vtPChar: Result := AVarRec.VPChar;
vtObject: Result := AVarRec.VObject.ClassName;
vtClass: Result := AVarRec.VClass.ClassName;
vtAnsiString: Result := string(AVarRec.VAnsiString);
vtCurrency: Result := CurrToStr(AVarRec.VCurrency^);
vtVariant: Result := string(AVarRec.VVariant^);
else
result := '';
end;
end;
You can combine the two functions above to one function that converts all elements in the array of const into one string:
function VarArrayToStr( AVarArray : array of const ) : string;
var
i : integer;
begin
result := '';
for i := 0 to High(AVarArray) do
result := result + VarRecToStr( AVarArray[i] );
end;
If you have too much sparetime, or just no life, you will now be able to create your own Format() function.
The Format() function scans for %'s and replaces the %something with the value in the array of const, depending on the format specifiers and precision specifiers.
Good luck.