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 :D (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

Delphi-Quellcode:

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:

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

Delphi-Quellcode:

Result := Text;

oder

Delphi-Quellcode:

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:

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:

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:

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.

[Muetze1]

... Und da man das Anlegen und freigeben von Objekten auf der gleichen Ebene handeln sollte zum besseren Verständnis und Pflege des Quellcodes, würde ich das ganze so umstellen:

Delphi-Quellcode:

procedure x;
var
  S: TStrings;
begin
  S := TStringList.Create;
  try
    DeineFunktion(S);
  finally
    S.Free;
  end;
end;

Procedure DeineFunktion(Const AList: TStrings);
Begin
  AList.Add('Whatever');
  AList.Add('you');
  AList.Add('want');
  AList.Add('him');
  AList.Add('Todo');
  AList.Add('...');
End;

Es ist eine echt widerliche Abart von manchen Programmierern sowas zu veranstalten und in einer Procedure eine Instanz anzulegen und dann zurück zu geben. Ich habe früher so einen Müll verzapft (Siehe TXMLAttributes in meiner XMLLib), aber heute bin ich um Erfahrungen reicher und würde solche schwachsinnigen Konstruktionen um jeden Preis vermeiden.

[Christian Seehase]

Moin Fabian,

Zitat:

Zitat von xZise

Wenn wird jetzt "Result" wieder freigegeben?

das ist genau das Problem, wenn man Objekte als Rückgabewert einer Funktion verwendet.
Grundsätzlich müsstest Du das Objekt freibeben, wenn Du es nicht mehr brauchst, aber dies natürlich, an der Stelle, an die Du den Wert übergeben hast, nicht innerhalb der Funktion.
Da man aber nicht gezwungen ist, den Rückgabewert einer Funktion zuzuweisen, kann man sich damit wunderbar Speicherlöcher einhandeln ;-)

Einfacher wäre es in so einem Falle das Ergebnis in einem Parameter zurückzugeben, der dann einfach bereits die Instanz eines Objektes enthält, in die dann die Rückgabe geschrieben wird.

BTW:
Kennt irgendjemand eine Funktion die ein neu erzeugtes Objekt als Rückgabewert hat?

[ste_ett]

Zitat:

Zitat von xZise

Aso ;)

Gut ^^ Dann ist das hier abgeschlossen ;)

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

Nein, Result und Text sind Pointer und du lässt Result auf dieselbe Stelle wie Text zeigen.
Mit @ änderst du die Speicheradresse, nicht aber den Wert der Variable.

[xaromz]

Hallo,

Zitat:

Zitat von Christian Seehase

BTW:
Kennt irgendjemand eine Funktion die ein neu erzeugtes Objekt als Rückgabewert hat?

Da fällt mir spontan COM ein, bzw. Class Factories allgemein. Ist aber wohl ein anderes Thema.

Gruß
xaromz

[Der_Unwissende]

Zitat:

Zitat von Christian Seehase

BTW:
Kennt irgendjemand eine Funktion die ein neu erzeugtes Objekt als Rückgabewert hat?

HI,
oh da gibt es doch einige:

• Viele Implementierungen des Factory-Pattern
• CreateBrush / CreateFont (etc.) bei den RaveReports
• Add-Funktionen, die nur die Referenz auf das neue Objekt liefert (z.B. in der TListView)

Da kann man dann schon alleine jeweils ins Detail gehen. Dass einige davon dann auch verwaltet sind (also aut. einen Owner zugewiesen bekommen sollten/müssten/dürften gehört ja nicht direkt zu deiner Frage :wink:)

Gruß Der Unwissende

[xZise]

So ;)

Jetzt habe ich die Hinweise so gut es ging berücksichtigt ;)

@ Create... als Namen: Habe ich nicht umgesetzt, weil jetzt ja da nichts mehr "createt" wird.