- Function Format(Const S: WideString Const Args: Array of Const): WideString;
- Var A: Array[0..15] of LongWord;
- i: Integer;
- Begin
- For i := High(Args) downto 0 do A[i] := Args[i].VInteger;
- SetLength(Result, 1024);
- SetLength(Result, wvsprintfW(PWideChar(Result), PWideChar(S), @A));
- End;