• Als Spam markieren
• Beitrag melden

• 
  Diese Gruppe Alles

• Archiv
• RSS-Feeds

• Kontakt
• Hilfe
• Impressum
• Datenschutz

TStringList als Rückgabewert

Hallo,

ist folgendes korrekt oder bleibt ein Speicherleck?

function TForm1.GetSD: TStringList;
var i:integer;
begin
result := TStringList.Create;
for i:=0 to 5 do
result.Add(inttostr(i));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Lines.Assign(GetSD);
end;

Ich bin ein wenig verwundert, dass
result := TStringList.Create;
nötig ist und auch funktioniert. Was ist mit dem Result.Free?

Gruß, Alfred

Antworten