代码:
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怎么错了
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怎么错了
SetLength(buffer,count);
Init(Str,var buffer);
//...
var
count : integer;
begin
count :=10;
SetLength(buffer,count);
Result := count;
end; 看不懂!楼主不如这样写
function Init() : Integer;
begin
Result := 10;
end;
设为全局变量