program dll_support;

uses dynlibs;

const
  STRING_NO_ERR = 0;    //Ошибки отсутствуют;
    STRING_ERR_NULL = -1;   //Ошибка выделения памяти;
    STRING_ERR_DATA = -2; //Некорректные входные параметры;

function STRING_new(hand: Pointer; buff: PChar): integer; stdcall; external 'dll_string';
{function str_off(a: integer): integer; stdcall; external 'dll_string';
function str_set(a: integer): integer; stdcall; external 'dll_string';
function str_cpy(a: integer): integer; stdcall; external 'dll_string';
function str_sub(a: integer): integer; stdcall; external 'dll_string';
function str_cat(a: integer): integer; stdcall; external 'dll_string';
function str_add(a: integer): integer; stdcall; external 'dll_string';
function str_cpm(a: integer): integer; stdcall; external 'dll_string';
function str_get(a: integer): integer; stdcall; external 'dll_string';
function str_len(a: integer): integer; stdcall; external 'dll_string';
function str_out(a: integer): integer; stdcall; external 'dll_string';
function str_cnt(a: integer): integer; stdcall; external 'dll_string';  }

type
  p_t_hand = ^t_hand;
  t_hand = ^t_head;
  t_head = record
    dat: PChar;
    count: integer;
  end;

 { TMyFunc = function(a: integer): integer; stdcall;     }

var
  {res: integer;
  test_func: TMyFunc;
  hand: TLibHandle;     }
  hand: t_hand;
  err: byte;
  buff: PChar;
begin
  hand := nil;
  err := STRING_new(@hand, 'hello');
  writeln(err);
  writeln(hand^.dat);
    readln;
end.