function Test(script: pchar; enable: boolean;allocid: integer):boolean; stdcall;
//************************************
var
null:integer;
//********************************
null:=-1;
Test(pchar(memo1.text),true,@null);
其中 delphi的memo1的属性Scrollbars为SSBoth.可以接受多行文本55分是全部的分了 请各位大神指教

解决方案 »

  1.   

    额。发错。
    function Test(script: pchar; enable: boolean;allocid:pinteger):boolean; stdcall;这个函数定义应该是这样 最后一个是pinteger
      

  2.   

    _stdcall bool Test(char* p, bool bFalg, int* pi)
      

  3.   

    function Test(script: pchar; enable: boolean;allocid:pinteger):boolean; stdcall;这个函数定义应该是这样 最后一个是pinteger,pinteger应该是 int*。
      

  4.   

    我知道那个函数怎么转啦- -
    关键是下面那个
    他memo1可以直接在lines设置字符串 但是VC不知道在哪设置 还是得用API设置?