{$APPTYPE CONSOLE}
function wvsprintf(Output: PChar; Format: PChar; arglist: Pointer): Integer;
stdcall; external 'user32' name 'wvsprintfA';
var
 a: array [0..1000] of Char;
 ii: array [0..1] of Integer;
begin
 ii[0] := 42334543;
 ii[1] := 534;
 wvsprintf(a, '%d %d', @ii[0]);
 WriteLn(a);
 ReadLn
end.

{$APPTYPE CONSOLE}
function wvsprintf(Output: PChar; Format: PChar; arglist: Pointer): Integer;
stdcall; external 'user32' name 'wvsprintfA';
var
 a: array [0..1000] of Char;
 rec: record
   i: Integer;
   c1: Char;
   // Здесь будет вставлено три пустых байта
   s: String;
 end;
begin
 rec.i := 42334543;
 rec.c1 := 'q';
 rec.s := 'zxcv';
 wvsprintf(a, '%d %c %s', @rec.i);
 WriteLn(a); // 42334543 q zxcv
end.

{$APPTYPE CONSOLE}
function vsprintf(Output: PChar; Format: PChar; arglist: Pointer): Integer;
 cdecl; external 'msvcrt.dll';

function wvsprintf(Output: PChar; Format: PChar; arglist: Pointer): Integer;
 stdcall; external 'user32' name 'wvsprintfA';

{$A4}
var
 a: array [0..1023] of Char;
 rec: record
   i: Integer;
   c1: Char;
   s: String;
   p: pointer;
   fd: double;
   fd2: double;
 end=(
   i: 42334543;
   c1: 'q';
   s: 'zxcv';
   p: Ptr($DEADBEEF);
   fd: 1.01;
   fd2: 1.01;
 );
const fmt='%d %c %s %p %f %.14g';
begin
 wvsprintf(a, fmt, @rec.i);
 WriteLn('wvsprintf: ' + a); // 42334543 q zxcv DEADBEEF f g
 vsprintf(a, fmt, @rec.i);
 WriteLn(' vsprintf: ' + a); // 42334543 q zxcv DEADBEEF 1.010000 1.01
end.

{$APPTYPE CONSOLE}
uses Windows;

function Int2Str(Value:integer):string;
begin
 Str(Value,Result);
end;

function Int2Hex(Num:integer):string;
asm
 // edx = Pointer to string
 // eax = Num
 push  esi
 push  edi

 bswap eax
 push  eax

 mov   edi,edx
 mov   esi,esp

 mov   eax,edx
 mov   edx,8
 call  System.@LStrSetLength

 mov   edi,[edi]

 mov   ecx,4
@@next:
 lodsb
 mov   ah,al
 and   al,$0F
 cmp   al,10
 sbb   al,$69
 das
 xchg  al,ah
 shr   al,$04
 cmp   al,10
 sbb   al,$69
 das
 stosw
 loop @@next
 
 pop   eax
 pop   edi
 pop   esi
end;

function Double2Str(D:double; Width,Precision:integer; CutEndZeroes:boolean):string;
var Temp:string;
begin
 if not CutEndZeroes then
 begin
  Str(D:0:Width,Temp);
  if Precision<Width*2-Length(Temp) then Precision:=Width*2-Length(Temp);
 end else Precision:=15;

 Str(D:Width:Precision,Result);
 if CutEndZeroes then
 begin
  while Result[Length(Result)]='0' do Delete(Result,Length(Result),1);
  if Result[Length(Result)]='.' then Delete(Result,Length(Result),1);
  Insert(StringOfChar(' ',Width-Length(Result)),Result,1);
 end;
end;

function vsprintf(Output,Format:pchar; ArgList:pointer):integer;
 cdecl; external 'msvcrt.dll';

function dprintf(const Fmt:string; ArgList:pchar):string;
// Supported form: %[width][.precision]type
const
 FMT_CHAR=['c','d','f','g','p','s'];
 FMT_NUM=['0','1','2','3','4','5','6','7','8','9'];
var
 I,Width,Precision:integer;
 WidthSpecified:boolean;
begin
 if Fmt='' then
 begin
  Result:='';
  Exit;
 end;
 I:=1;
 repeat
  if Fmt[I]<>'%' then
  begin
   Result:=Result+Fmt[I];
  end else begin
   Inc(I);
   if I>Length(Fmt) then break;
   Width:=0;
   WidthSpecified:=false;
   Precision:=0;

   while Fmt[I] in FMT_NUM do
   begin
    WidthSpecified:=true;
    Width:=Width*10+Ord(Fmt[I])-48;
    Inc(I);
    if I>Length(Fmt) then Exit;
   end;

   if Fmt[I]='.' then
   begin
    Inc(I);
    if I>Length(Fmt) then break;
    while Fmt[I] in FMT_NUM do
    begin
     Precision:=Precision*10+Ord(Fmt[I])-48;
     Inc(I);
     if I>Length(Fmt) then Exit;
    end;
   end;
   if Precision=0 then Precision:=1;

   case Fmt[I] of
    'c': begin
     Result:=Result+ArgList^;
     Inc(ArgList,4);
    end;
    'd': begin
     Result:=Result+Int2Str(PInteger(ArgList)^);
     Inc(ArgList,4);
    end;
    'f': begin
     if not WidthSpecified then Width:=8;
     Result:=Result+Double2Str(PDouble(ArgList)^,Width,Precision,false);
     Inc(ArgList,8);
    end;
    'g': begin
     if not WidthSpecified then Width:=1;
     Result:=Result+Double2Str(PDouble(ArgList)^,Width,Precision,true);
     Inc(ArgList,8);
    end;
    'p': begin
     Result:=Result+Int2Hex(PInteger(ArgList)^);
     Inc(ArgList,4);
    end;
    's': begin
     Result:=Result+PChar(Ptr(PInteger(ArgList)^));
     Inc(ArgList,4);
    end;
    else continue;
   end;

  end;
  Inc(I);
 until I>Length(Fmt);
end;

var
 a: array [0..1023] of Char;
 rec: packed record
  i: Integer;
  c1: Char; _dummy:array[0..2] of byte;
  s: String;
  p: pointer;
  fd: double;
  fd2: double;
  fd3: double;
  fd4: double;
 end=(
  i: 42334543;
  c1: 'q';
  s: 'zxcv';
  p: Ptr($DEADBEEF);
  fd: 1.01;
  fd2: 1.01;
  fd3: 1.01;
  fd4: 1.01;
 );
 s:string;
const fmt='!%d %c %s %p %5.14f %5.14g %f %g %zs!';
//const fmt='!%d %c %s %p %.f %.g %f %g %zs!';
begin
 vsprintf(a,fmt,@rec); WriteLn('vsprintf: '+a);
 s:=dprintf(fmt,@rec); WriteLn(' dprintf: '+s);
end.