Delphi sscanf

Нагло отбираем у Си конфеты. А именно - функцию sscanf напрямую из Microsoft Visual C++ Runtime библиотеки.

// Предопределяем реф на библиотеку Си. Важно что это cdecl и varargs звонок, а не как мы привыкли в WinAPI - stdcall
function sscanf(Input, Format: PChar): Integer; cdecl;
  varargs; external 'msvcrt.dll' name 'sscanf';
 
// Получаем данные
var
  Age: Integer;
  Name: array[0..255] of Char;
begin
  sscanf('Женя 40', '%s %d', @Age, @Age);
  Caption := String(name) + ' ' + IntToStr(Age) + ' лет';
end;