دالة Wsprintfa

[x-member]

MSDN

[align=left][url]https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-wsprintfa[/url][/align]

هذا مثال بال C++  : 

[url]https://www.programiz.com/cpp-programming/library-function/cwchar/swprintf[/url]

هذا مثال من StackOverflow بالدلفي : 

function wsprintf(Output: PChar; Format: PChar): Integer; cdecl; varargs;
  external user32 name {$IFDEF UNICODE}'wsprintfW'{$ELSE}'wsprintfA'{$ENDIF};

procedure TForm1.FormCreate(Sender: TObject);
var
  S: String;
begin
  SetLength(S, 1024); // wsprintf can work only with max. 1024 characters
  SetLength(S, wsprintf(PChar(S), '%s %03d', 'Hallo', 3));
end;

ملاحظة : 
حاول البحث أولا ثم اطرح تساؤلاتك داخل المنتدى , بالتوفيق صديقي