Bezug zu StringList auflösen

[messie]

Moin,

ich erstelle in einer function eine StringList, die als result an eine globale StringList übergeben wird:

Delphi-Quellcode:

function LeseDatei : TStringList;
var
  LocList : TStringList;
begin
  LocList := TStringList.Create;
  LocList.Add(irgendwas aus einer Datei);
  result := LocList;
end;


begin
  GlobalList := LeseDatei;
end;

bei der Übergabe des result übergebe ich ja nur einen Pointer auf den von LocList allozierten Speicher.
Wie kann ich diesen Speicher so an GlobalList übertragen, daß ich LocList nil setzen kann?

Grüße, Messie

[Klaus01]

so sollte es in etwa gehen.

Delphi-Quellcode:

begin 
  GlobalList.Assign(LeseDatei); 
end;

Grüße
Klaus

[marabu]

Hallo Messie,

im von dir geschilderten Beispiel würde ich keine zusätzliche Liste erzeugen:

Delphi-Quellcode:

procedure LeseDatei(s: TStrings);
begin
  s.Clear;
  s.Add('irgendwas aus einer Datei');
end;

begin
  LeseDatei(GlobalList);
end;

Grüße vom marabu