可以啊,当然好像只有Delphi才能调用了。 function MyFunc:TStringList;stdcall; begin Result := TStringList.Create; Result.Add('1'); Result.Add('2'); Result.Add('3'); Result.Add('4'); Result.Add('5'); end;调用: var ss: TStringList; ss := TStringList.Create; //可以不用 ss := MyFunc; ShowMessage(ss.Strings[2]); ss.Free;
function MyFunc:TStringList;stdcall;
begin
Result := TStringList.Create;
Result.Add('1');
Result.Add('2');
Result.Add('3');
Result.Add('4');
Result.Add('5');
end;调用:
var ss: TStringList;
ss := TStringList.Create; //可以不用
ss := MyFunc;
ShowMessage(ss.Strings[2]);
ss.Free;