Verwendung von Constructor und Destruktor

[dominikkv]

hallo

ich hab ein paar fragen wie man .create und .free richtig benutzt.
eigendlich ist es ja klar...:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   list: TStringList;
begin
  list := TStringList.Create;
  {...}
  list.Free;
end;

wie siet das aber hier aus:

Delphi-Quellcode:

function TForm1.Beispiel1(list: TStringList): Integer;
function TForm1.Beispiel2: TStrinList;

brauche ich hier Constructoren bzw Deconstructoren?
und ist das hier richtig:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   list1, list2: TStringList;
begin
  list1 := TStringList.Create;
  list2 := list1;
  {...}
  list2.Free;
end;

ich danke schon mal für eure antworten^^
mfg.dominik

[p0w3r5tr34m3r]

list2 := list1 ich nehme an das es zu ner AccessViolation kommt da list2 keinen Speicher reserviert bekommt.
Musst die liste schon erstellen damit sie speicher hat.

so long

[mkinzler]

Zitat:

brauche ich hier Constructoren bzw Deconstructoren?

Im 1. Fall wird existiert die Instanz ja schon, also nein.
Im 2. Fall mußt du den Construktor aufrufen, aber keinesfalls den Destruktor (nicht Dekonstruktor).

Zitat:

und ist das hier richtig:...

Nein, es wird ja nur eie Insanz erzeugt, welche dann freigegeben wird.
Was willst du hiermit erreichen?
[Edit:

Zitat:

ich nehme an das es zu ner AccessViolation kommt da list2 keinen Speicher reserviert bekommt.

Nein es gibt keine AV. Objektvaribalen sind ja Referenzen (Zeiger) auf Objekte. Das heißt beide Variablen referenzieren das selbe objekt.]

[DGL-luke]

function ReturnSomeInstance: TSomeClass; Hier muss Result mit TSomeClass.Create erzeugt werden.

procedure SomeVarInstance(var Instance: TSomeClass); Hier sollte Instance bereits beim Aufrufen erzeugt sein.

procedure SomeOutInstance(out Instance: TSomeClass); Hier solltest du prüfen, ob Instance schon erzeugt wurde (per "if Instance is TSomeCLass" zum Beispiel, es gib da aber leider keine 100%ige Möglichkeit), in der Mehrheit der Fälle sollte es aber von dir zu erzeugen sein.

Wegen deinem letzten Beispiel:

Sowohl List1 als auch List2 sind dann wilde Pointer, die auf eine (die selbe) zerstörte Instanz weisen.

@powerstreamer: folliger blødsint...

[3_of_8]

Zitat von p0w3r5tr34m3r:

list2 := list1 ich nehme an das es zu ner AccessViolation kommt da list2 keinen Speicher reserviert bekommt.
Musst die liste schon erstellen damit sie speicher hat.

Na wo ist das Problem? Es wird TStringList.Create aufgerufen, der Instanzenpointer auf das erzeugte Objekt wird in list1 gespeichert und anschließend nochmal in list2. Das heißt, list1 und list2 zeigen beide auf die gleiche Instanz einer TStringList.

Bei solchen Funktionen, die eine Instanz erzeugen und den Instanzenpointer zurückgeben, muss immer der Caller die Instanz freigeben. Klar, denn wenn der Callee sie freigibt, kann der Caller nichts mehr damit anfangen.

Nebenbei ist eine gute Alternative dazu, eine Klasseninstanz per Parameter zu übergeben, mit der die Prozedur/Funktion dann arbeitet.

[dominikkv]

Zitat von DGL-luke:

Sowohl List1 als auch List2 sind dann wilde Pointer, die auf eine (die selbe) zerstörte Instanz weisen.

das war ja auch mein ziel...es ging mir nur darum ob es theorethisch möglich ist (und warum zerstörte instanzen? vor dem .free kann ich doch mit beiden arbeiten?)

ich hab mal nen beispiel gebastelt um zu schauen ob ich den rest verstanden hab

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   list: TStringList;
begin
  list := TStringList.Create;   // ist das hier optional?
  list := Neu;
  label1.Caption := Erster_Eintrag(list);
  label2.Caption := Neu[1];
  list.Free;
end;

function TForm1.Erster_Eintrag(list: TStringList): String;
begin
  result := list[0];
end;

function TForm1.Neu: TStringList;
begin
  result := TStringList.Create;
  result.Add('Test_abc');
  result.Add('Test_123');
end;

[mkinzler]

Was ist Neu? Wenn das auch ne Stringlist ist, dann ist das Intantiieren von list nicht optional, sondern überflüssig, da eine 2. nicht benötigte Instanz erzeugt wird.
BTW. list kannst du dann ganz weglassen.

[3_of_8]

Der erste Konstruktoraufruf ist nicht optional, er ist sinnlos. Du weißt Speicher zu, den du nicht mehr freigibst. Speicherleck nennt man das.

Nebenbei sind deine Funktionen, die du dir da bastelst relativ sinnlos. Vor allem ErsterEintrag.

[dominikkv]

Zitat von mkinzler:

Was ist Neu?

Neu ist eine function...hab sie halt mal "Neu" genannt xD

Zitat von 3_of_8:

Der erste Konstruktoraufruf ist nicht optional, er ist sinnlos. Du weißt Speicher zu, den du nicht mehr freigibst. Speicherleck nennt man das.

danke

Zitat von 3_of_8:

Nebenbei sind deine Funktionen, die du dir da bastelst relativ sinnlos. Vor allem ErsterEintrag.

das ist mir schon klar, es geht mir nur ums prinzip^^

also sind bis auf das speicherleck alle functionen korrekt und richtig freigegeben?

[Christian Seehase]

Moin Dominik,

im Prinzip ja, aber es ist grundsätzlich keine gute Idee, ein Objekt als Rückgabewert einer Funktion zu verwenden, da man zu leicht vergessen kann, dass man das auch wieder freigeben muss.

Das sollte man besser so machen, wie Manuel es schon beschrieben hat:

Delphi-Quellcode:

procedure WasAuchImmer(const AslResult : TStringList);
begin
  AslResult.Clear;
  AslResult.Add('erster string');
  AslResult.Add('zweiter string');
end;