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

[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 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 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 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 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 )

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.