Freigabe in DLL!? Wo ist der Fehler...

[StefanDP]

Hi! Ich hab eine DLL, vom Prinzip:

Delphi-Quellcode:

library Project1;
...
var
  StringList: TStringList;

function MachDies: TStringList; stdcall;
begin
  StringList := TStringList.Create;
  BearbeiteDieStringlist;
  result := StringList;
  // Freigabe ??
  //  StringList.Free;
end;

exports
  MachDies;

Wo/Wie geb ich die Stringliste frei? Wenn ich das .Free reinschreib ist die SL leer/"weg".

stefan

[Luckie]

Übergib das ganze als var Parameter:

Delphi-Quellcode:

procedure Foo(var sl: TStringList);
begin
  sl.Add('Test');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  Foo(sl);
  ShowMessage(sl.Text);
  sl.Free;
end;

Dann ist klar, wer den Speicher aufräumen muss.