Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Funktionen mit Eigener Klasse als Rückgabewert... (https://www.delphipraxis.net/40941-funktionen-mit-eigener-klasse-als-rueckgabewert.html)

Kedariodakon 23. Feb 2005 15:11


Funktionen mit Eigener Klasse als Rückgabewert...
 
Mal so eine ganz dumme noob Frage ^^
Wenn ich eine Funktion habe, welche eine eigene Klasse(von TObject ) zurückgibt, muss ich dann dieses Object in der Funktion erstellen mit Create?
Muß ich das zurückgegebene Object außerhalb dann zerstören?

Bin diesbezüglich gerade ein klein wenig verwirrt :nerd:


Bye

jim_raynor 23. Feb 2005 15:15

Re: Funktionen mit Eigener Klasse als Rückgabewert...
 
Ja.

PMM 23. Feb 2005 16:19

Re: Funktionen mit Eigener Klasse als Rückgabewert...
 
Kommt drauf an, man könnte auch ein Funktion schreiben die ein Objekt als Parameter übernimmt bearbeitet (z.B. mit Daten füllt) und dann als Funktionsergebnis wieder zurück gibt. Also etwa

Delphi-Quellcode:
function MyFoo(aObject: TObject):TObject;
Begin
  if not assigend(aObject)
    then Begin
     ---> Fehlerabbruch
    end
  else begin
    result := aObject;
   
    ---> Result mit Daten füllen usw.

  end;
end;
Damit kann man das Objekt ausserhalb der Funktion erstellen (z.B. auf der gleichen Ebene auf der es wieder entsorgt werden soll).

Die 2. Option wäre etwa so:

Delphi-Quellcode:
function MyFoo:TObject;
Begin
  try
    Result := TObject.Create;
    ---> Result mit Daten füllen usw.
  except
    ---> Fehlerbehandlung
  end;
end;
Ist sieht natürlich eleganter aus, verbirgt aber den Aufruf des Konstruktor.

Der Königsweg aber wäre meines Erachtens, den Konstruktor der Klasse so zu erweitern, dass er die Aufgaben von "MyFoo" mit erledigt. Damit würde der Aufruf von MyFoo zu Gunsten des Konstruktors entfallen und alles ist klar.

[edit=Luckie]Delphi-Tags eingefügt. Mfg, Luckie[/edit]


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:46 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz