C Nesnelerini Delphi'de kullanmak

[veteran]

program cdecl_pas;

{$APPTYPE CONSOLE}

{$R *.res}

uses
 System.SysUtils;

//
// veteran
// 24-08-2023
//

//
// Eğer C kütüphanen varsa aşağıdaki derleyici direktifi de gerekir.
//{$LIB 'bileşenler.lib'}
//

function wsprintf ( outOutputString : PWideChar;
                   const inFormatString : PWideChar ) : Integer;
                   cdecl; varargs;
                   external 'user32.dll' name 'wsprintfW';

var
 B : array[ Byte ] of WideChar;

begin
 try

   FillChar( B, SizeOf(B), 0 );
   wsprintf( @B[ 0 ], 'Şu anda `%d` yılındayız.', 2023 );

   WriteLn( WideCharToString( @B[ 0 ] ) );

 except
   on l_objException : Exception do
     WriteLn( l_objException.ClassName(), ': ', l_objException.Message );
 end;

 ReadLn;
end.