Result := Text, heißt dass @Result = @Text

[xZise]

Also ich mache in eine Funktion vereinfacht das:

Delphi-Quellcode:

function getSth : TStrings;
var
  Text : TStrings;
begin
  Text := TStringList.Create;
  [...]
  Result := Text;
  Text.Free;
end;

Kann es nun sein, dass Result = nil ist, wenn ich Text freigebe? Also das sozusagen Result und Text auf die gleiche Adresse zeigen, und beide nil sind, wenn ich eins von beiden Freigebe?

Oder stimmt das nicht?


PS: Ich habe gesucht, aber irgendwie waren die Ergebnisse nicht passend, oder mir fielen nicht die Parameter ein.
PPS: Ich habe mich noch nicht so richtig mit Zeigern beschäftigt, aber ich hoffe dass "@Bla" auf die Adresse von "Bla" zeigt (Titeltext ist ja beschränkt ^^)

[ste_ett]

Du darfst die Instanz der Klasse nicht wieder freigeben, wenn du sie als Rückgabewert nutzen willst.

Mit
Result := Test; setzt du den Pointer um, so dass jetzt auf die erstellt Instanz der Klasse verwiesen wird.

[xZise]

Also war meine Vermutung richtig.

Also müsste ich "Result.text := Text.text" machen... Okaydokay

[Eichhoernchen]

Er kann sich aber vorher auch einfach die Daten kopieren und dann die vorherige Klasse freiegeben aber macht ja nicht wirklich Sinn. Da durch das Freigeben einer der Beiden sowieso beide weg wären, daher einfach nicht freigeben und wenn du irgendwann das result freigibst ist ehh alles weg oder nicht?

[Bernhard Geyer]

Zitat von xZise:

Also war meine Vermutung richtig.

Also müsste ich "Result.text := Text.text" machen... Okaydokay

Du mußt dafür sorgend das hinter Result auch ein gültiges Objekt hängt.
Also entweder in deinem Code

Result := Text; oder

Result := TStringList.Create;

[xZise]

Also ich habe mir jetzt ein Objekt gespart:

Delphi-Quellcode:

function GetText : TStrings;
begin
  Result := TStringList.Create;
  [...]
end;

Wenn wird jetzt "Result" wieder freigegeben?

[Bernhard Geyer]

Zitat von xZise:

Also ich habe mir jetzt ein Objekt gespart:

Delphi-Quellcode:

function GetText : TStrings;
begin
  Result := TStringList.Create;
  [...]
end;

Wenn wird jetzt "Result" wieder freigegeben?

Automatisch: Gar nicht. Da mußt du schon selbst dafür sorgen.

[xaromz]

Hallo,

Zitat von xZise:

Wenn wird jetzt "Result" wieder freigegeben?

Gar nicht. Das muss die aufrufende Funktion übernehmen. Z. B. so:

Delphi-Quellcode:

procedure x;
var
  S: TStrings;
begin
  try
    S := GetText;

    // irgendwas machen
  finally
    S.Free;
  end;
end;

Gruß
xaromz

[xZise]

Aso

Gut ^^ Dann ist das hier abgeschlossen

PS: Eins interessiert mich noch: Wäre "Result := Text" = "@Result := @Text"?

[jbg]

Zitat von xZise:

Delphi-Quellcode:

function GetText : TStrings;
begin
  Result := TStringList.Create;
  [...]
end;

So eine Funktion würde ich nicht "Get..." nennen, sondern "Create...". Damit ist mir beim Aufruf der Funktion bereits klar, dass ich für das Freigeben zuständig bin.