Ein Objekt in einer Funktion zerstören

[himitsu]

Die wichtigsten Dinge wurden ja schon gesagt.
* falscher Bezeichner
* Free und in Beziehung dazu das Assinged

Wenn nicht noch mehr in dieser Funktionen ist, dann ist sie im Grunde total nnutzlos ... jedenfalls ist irgendwie kein "nützliches" Verhalten erkennen.

Und Spaß macht es, wenn man diese Funktion mehrmals aufruft,
denn Free setzt die Variable nicht auf NIL und selbst wenn, dann würde "dieser" Parameter den NIL außerhalb der Funktion verschwinden lassen.

Delphi-Quellcode:

function myFunc (aClass : TMyClass) : Boolean;
begin
  //Result := not Assigned(aClass);  // ob davor oder danach ist hier egal
  aClass.Free;
  Result := not Assigned(aClass);
end;

Würde Free die Variable auf NIL setzen (FreeAndNil), dann wäre Assing "danach" sinnlos, da es immer FALSE liefern würde.

[kagi3624]

hallo Himitsu, das war ja nur einen Beispiel, in meiner tatsächlichen Funktion wird ja was gemacht mit dem Objekt. Ich wollte nur wissen ob es im Prinzip geht, da ich irgendwie immer noch nicht verstehe ob die Funktionen in Delphi ein call by value oder call by reference machen.

[himitsu]

Ohne VAR kann die Variable außerhalb, beim Freigeben, nicht auf NIL gesetzt werden, damit auch spätere If-Assigned und Free-Aufrufe die bereits erfolgte Freigabe erkennen können.

Zitat:

call by value oder call by reference

Das ist ersmal egal.
Objekte sind immer Referenzen
und ob die "Variable" im Parameter als Referenz übergeben wird, das hängt von der Deklaration und der Größe des Typen ab.
VAR = immer Referenz
ohne = immer eine Kopie (ByValue)
const = hängt vom Typ ab (SizeOf>Pointer oder bei Size=Pointer, ob gemanagter Typ ala String und Interface)
const [ref] = immer referenz (bei Objekten also eine Referenz in einer Referenz)

Diesbezüglich hat sich aber in den letzten Jahren die Hilfe wesentlich verbessert, denn derartige Verhalten sind nun dokumentiert.
http://docwiki.embarcadero.com/RADSt...meter_(Delphi)
https://stackoverflow.com/questions/...ameters-useful

[KodeZwerg]

Zitat von kagi3624:

Zitat von KodeZwerg:

Benutze doch eine Liste um die erzeugten Class-Instanzen zu verwalten, jedenfalls mache ich das oft bei dynamisch erzeugten krams.

Kannst du ein Minimalbeispiel geben, bitte?

Ich mag jetzt keins schreiben darum nehme ich was ich bereits mal schrieb, exemplarisch.
zur-laufzeit-comboboxen-hinzufuegen

[Rolf Frei]

Noch eine Anmerkung: Du verwendest da den Begriff Class in deinen Variablen, es sind aber anscheinend Objekte und nicht Klassen. Das sind zwei sehr unterschiedliche Sachen. Eine Klasse kannst du übergeben um dann in der Funktion ein Objekt der Klasse zu erstellen.

TObject ist ein Objekt (Instanz einer Klasse), TClass ist eine Klasse mit der du ein Objekt erstellen kannst:

Delphi-Quellcode:

type
  TMyObject = class(TObject)
  public
    function TueIrgendwas(): Boolean;
  end;
  TMyObjectClass = class of TMyObject;

{ TMyObject }

function TMyObject.TueIrgendwas: Boolean;
begin
  Result := true;
end;


function MyFunction(AMyClass: TMyObjectClass ): Boolean;
var
  MyObject: TMyObject;
begin
  MyObject := AMyClass.Create;
  try
    Result := MyObject.TueIrgendwas();
  finally
    MyObject.Free;
  end;
end;