Dynamisches Array als Rückgabewert von function ?

[Blamaster]

Hi,

ich mlchte eine function mit einem Array als Rückgabewert nutzen:

Delphi-Quellcode:

function GiveMeTheArray(text: string): TFilteredLinksArray; stdcall;
var
  i: integer;
  text_list: TStringList;
begin
  text_list := TStringList.Create;

  GetText(text_list);
 
  SetLength(Result, text_list.Count - 1);

  for i := 0 to text_list.Count - 1 do
    Result[i] := text_list.Strings[i];

  text_list.Free;
end;

TFilteredLinksArray ist als type TFilteredLinksArray = array of string deklariert.

Wenn ich die function nun aufrufe, gibt es den Fehler "Invalid Pointer Operation".
Dieser tritt an dieser Stelle auf Result[i] := text_list.Strings[i]; was stimmt da nicht ?

Mfg Yannic