代码:  
function  Init(Str  :String;var  buffer:array  of  Byte):Integer;  
var  
   count  :  integer;      
begin      
   count  :=10;  
   SetLength(buffer,count);  
   Result  :=  count;  
end;  
错误:  
[Error]  Unit1.pas(31):  Incompatible  types 
SetLength怎么错了

解决方案 »

  1.   

    //...
    SetLength(buffer,count);  
    Init(Str,var  buffer);  
    //...
      

  2.   

    function  Init(Str  :String;var  buffer:array  of  Byte):Integer;  
    var  
       count  :  integer;      
    begin      
       count  :=10;  
       SetLength(buffer,count);  
       Result  :=  count;  
    end; 看不懂!楼主不如这样写
    function Init() : Integer;
    begin
      Result := 10;
    end;
      

  3.   

    把buffer:array  of  Byte
    设为全局变量