Du erstellst in der Funktion eine Stringliste und gibst sie in der Funktion wieder frei.
Result ist aber nur ein Zeiger auf die Stringliste.
Eventuell sowas in der Art?
Delphi-Quellcode:
function HoleIniInhalt : TStringList;
begin
Result := TStringList.Create;
try
IniFile_.GetStrings(Result); // TMemIniFile
...
...
// STELLE 1
finally
// STELLE 2
end;
end;
var
sl : TStringList;
begin
sl := HoleIniInhalt;
...
// Machwas mit sl
...
sl.Free;
end;
Oder:
Delphi-Quellcode:
procedure HoleIniInhalt(sl : TStringList);
begin
try
IniFile_.GetStrings(sl); // TMemIniFile
...
...
// STELLE 1
finally
// STELLE 2
end;
end;
var
sl : TStringList;
begin
sl := TStringList.Create;
HoleIniInhalt(sl);
...
// Machwas mit sl
...
sl.Free;
end;
Sinngemäß schrieb stahli das ja auch schon.