"with"-variable?

[xZise]

Ich habe folgenden Code:

Delphi-Quellcode:

  with TfrmSettings.Create(nil) do
    try
      ShowModal(nil);
    finally
      FreeAndNil(???);
    end;

Was muss anstelle der ??? hin? Also ich möchte die oben erstellte Varible free'n und nil'n...? Ist es "self"?
Also "self" ist es nicht:

Zitat:

[Error] BBCodePlugin.dpr(32): Undeclared identifier: 'self'

[Gollum]

Hallo,

da geht nur Free!
Da du keine Variable benutzt, kannst Du auch nichts auf nil setzen.

[xZise]

Achso ;) Ist ja auch irgendwie logisch :D
Aber was wäre jetzt wenn ich die Variable doch bräuchte? Also z.B. für Showmessage o.ä.?

[r2c2]

Zitat:

Zitat von xZise

Aber was wäre jetzt wenn ich die Variable doch bräuchte? Also z.B. für Showmessage o.ä.?

Dann musst du auf with verzichten:

Delphi-Quellcode:

var
  Objekt: TKlasse;
begin
  Objekt := TKlasse.Create;
  try
    Objekt.Eigenschaft := Wert;
  finally
    FreeAndNil(Objekt);
    // oder in dem Fall reicht auch Free
    Objekt.Free;
  end;

Zumal with sowieso n komisches Konstrukt is...

mfg

Christian

[Jürgen Thomas]

Zitat:

Zitat von xZise

Achso ;) Ist ja auch irgendwie logisch :D
Aber was wäre jetzt wenn ich die Variable doch bräuchte? Also z.B. für Showmessage o.ä.?

In dem Fall musst Du ohne FreeAndNil oder ohne with-Konstrukt arbeiten, z.B.:

Delphi-Quellcode:

var stg: TfrmSettings;
// usw.
stg = TfrmSettings.Create(nil);
try
  stg.ShowModal;
finally
  FreeAndNil(stg);
end;

Gruß Jürgen

[/edit]ohne rote Karte...

[mkinzler]

Oder du kombinierst die beiden Möglichkeiten:

Delphi-Quellcode:

var
  Objekt: TKlasse;
begin
  Objekt := TKlasse.Create;
  with Objekt do
  ...
  end;

[xZise]

Zitat:

Zitat von mkinzler

Oder du kombinierst die beiden Möglichkeiten:

Ich benutzte aber with eigentlich nur, um mir eine lokale Varibale zu speichern. Meißt eben, wenn ich Inis habe o.ä.

Abe danke @ all ;)

[Elvis]

Wofür zum Geier brauchst du FreeAndNil wenn du gar keine greifbare Referenz hast, die nach dem Free auf einen ouchy banana-Bereich zeigt?
Lass mich raten: Pawlow? Du siehst Create und denkst gleich an "FreeAndNil" weil dir irgendwann irgendjemand gesagt hat es sein besser, right?
Ich benutze fast nie FreeAndNil, schlicht und ergreifend weil ich hauptsächlich Dinge freigebe, die danach eh aus'm Scope flutschen oder im "Destruktor". ;)

btw: Es ist aber immer ein guter Tip nicht "with" zu benutzen. "with" in Delphi ist einfach zu diffus.

[Luckie]

Ich benutze auch immer FreeAndNil. Habe ich mir angewöhnt, damit, wenn man doch mal mit Assigned prüfen muss, nicht auf die Fresse fällt.

[Elvis]

Zitat:

Zitat von Luckie

Ich benutze auch immer FreeAndNil. Habe ich mir angewöhnt, damit, wenn man doch mal mit Assigned prüfen muss, nicht auf die Fresse fällt.

Ja, genau dafür isses da. Falls man danach noch eine Referenz hat, die überhaupt prüfbar wäre.
Das ist hier nicht der Fall.
Genauso wenig wie es in einem Destruktor der Fall ist, oder am Ende einer Methode. ;)