AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

self.free

Ein Thema von user0 · begonnen am 28. Okt 2005 · letzter Beitrag vom 31. Okt 2005
Antwort Antwort
Seite 2 von 3     12 3      
Benutzerbild von RavenIV
RavenIV

Registriert seit: 12. Jan 2005
Ort: Waldshut-Tiengen
2.875 Beiträge
 
Delphi 2007 Enterprise
 
#11

Re: self.free

  Alt 28. Okt 2005, 16:14
Zitat von faux:
ABer wozu denn das alles? Normalerweise zerstört man das Objekt doch mittels dem Deconstructor, oder? Derjenige der ´die Klasse erzeugt, muss sie nach dem Verwenden auch wieder zerstören.
genau, so sehe ich das auch.

was macht self.free() denn für einen Sinn?
woher soll eigentlich das Objekt wissen, dass es nicht mehr benötigt wird?
Klaus E.
Linux - das längste Text-Adventure aller Zeiten...
Wer nie Linux mit dem vi konfiguriert hat, der hat am Leben vorbei geklickt.
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#12

Re: self.free

  Alt 28. Okt 2005, 16:20
Zitat von RavenIV:
was macht self.free() denn für einen Sinn?
woher soll eigentlich das Objekt wissen, dass es nicht mehr benötigt wird?
Es gibt viele Möglichkeiten dafür. Ein einfaches Beispiel: ein Thread soll im Hintergrund ein Dokument drucken. Wenn der damit fertig ist, dann kann dieser sich ins Nirvana verabschieden - den braucht keiner mehr.

......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
SMO

Registriert seit: 20. Jul 2005
178 Beiträge
 
Delphi XE6 Professional
 
#13

Re: self.free

  Alt 28. Okt 2005, 16:21
Ich glaube hier stiftet der Unterschied zwischen Objekten und Referenzen wieder Verwirrung.

Ein Objekt kann viele Referenzen haben. Ein sich selbst zerstörendes Objekt sollte (müsste) alle Referenzen auf sich auf nil setzen. Das geht aber nicht so einfach, denn woher soll es die kennen? Beispiel:
Delphi-Quellcode:
var
  A, B, C: TObject;

A := TObject.Create;
B := A;
C := B;
Damit hätte man ein Objekt aber drei Referenzen darauf. Wenn das Objekt nun zerstört wird, z.B. durch B.Free, dann hat der Destruktor noch nicht mal Kenntnis von B, geschweige denn von A und C. Der "Self" Parameter, der in den Methoden verfügbar ist, ist ein Zeiger auf das Objekt (seine Datenstruktur) und nicht ein Zeiger auf eine der Referenzen.
Genau deshalb gibt es ja z.B. "FreeAndNil". Das ruft Free auf und setzt die übergebene Referenz auf nil. Falls noch andere Referenzen auf das Objekt existieren bleiben sie davon natürlich unberührt.
  Mit Zitat antworten Zitat
user0

Registriert seit: 28. Okt 2005
25 Beiträge
 
Delphi 7 Personal
 
#14

Re: self.free

  Alt 28. Okt 2005, 16:25
Ebend deshalb will ich wissen, wie man herrausfindet, ob ein Zeiger ins Nichts zeigt.
  Mit Zitat antworten Zitat
Benutzerbild von RavenIV
RavenIV

Registriert seit: 12. Jan 2005
Ort: Waldshut-Tiengen
2.875 Beiträge
 
Delphi 2007 Enterprise
 
#15

Re: self.free

  Alt 28. Okt 2005, 16:32
Zitat von sakura:
Zitat von RavenIV:
was macht self.free() denn für einen Sinn?
woher soll eigentlich das Objekt wissen, dass es nicht mehr benötigt wird?
Es gibt viele Möglichkeiten dafür. Ein einfaches Beispiel: ein Thread soll im Hintergrund ein Dokument drucken. Wenn der damit fertig ist, dann kann dieser sich ins Nirvana verabschieden - den braucht keiner mehr.
ein Thread ist kein Objekt.
ein Thread wird gestartet und beendet (beendet sich selbst).
ein Objekt wird erzeugt und zerstört.
Klaus E.
Linux - das längste Text-Adventure aller Zeiten...
Wer nie Linux mit dem vi konfiguriert hat, der hat am Leben vorbei geklickt.
  Mit Zitat antworten Zitat
Benutzerbild von dizzy
dizzy

Registriert seit: 26. Nov 2003
Ort: Lünen
1.932 Beiträge
 
Delphi 7 Enterprise
 
#16

Re: self.free

  Alt 28. Okt 2005, 16:33
Das geht nur über Prüfung auf Zeiger=nil, was aber wiedrum nicht geht, da du bei der angestrebten Variante eben dies nicht machen kannst . Ein Zeiger zeigt wenn er nicht nil ist IMMER auf irgendwas. Im schlimmsten Fall halt auf "zufällige" Daten, oder in geschützte Segmente.
Eine Variante die mir einfiele wäre es der Prozedur "Rausschmeissen" die entsprechende Referenz nochmals als var-Parameter mit zu übergeben:
Delphi-Quellcode:
procedure TMyClass.Rausschmeissen(var p: TMyClass);
begin
  p := nil;
  self.Free;
end;
Damit wäre aber nur diese eine übergebene Referenz nil. Jede weitere auf dieses Objekt ist immernoch ungültig nachher.
Fabian K.
INSERT INTO HandVonFreundin SELECT * FROM Himmel
  Mit Zitat antworten Zitat
tommie-lie
(Gast)

n/a Beiträge
 
#17

Re: self.free

  Alt 28. Okt 2005, 17:16
Zitat von RavenIV:
ein Thread ist kein Objekt.
Wenn ich ihn mit BeginThread() starte nicht, richtig, aber eine TThread-Instanz ist ein Objekt (Gips nicht sogar ein Property TThread.FreeOnTerminate?).

Zitat von user0:
Es geht um Spielfiguren, die sich gegenseitig rausschmeißen.
So?
Delphi-Quellcode:
TPawn = class
public
  destructor Destroy();

  procedure Capture(var TSpielfigur: aPawn);
  procedure Move(Integer: x, y);
end;


procedure TPawn.Capture(var TPawn: aPawn)
begin
  aSpielfigur.Free;
  aSpielfigur := nil;
  self.Spieler.IncreasePoints(1);
end;

destructr TPawn.Move(x, y)
begin
  if Board[x,y].getPawn() <> nil then // da steht schon jemand
    if Board[x,y].getPawn().getPlayer() <> self.getPlayer then // und der jemand gehört nicht mir
      self.Capture(Board[x,y].getPawn()); // also sacke ich den ein
end;
Keine Ahnung ob die Syntax stimmt, aber laufen müsste es, selbst wenn es sich nicht kompilieren lässt
Wenn die Spielfigur noch irgendwas hat, was sie freigeben möchte, zum Beispiel irgendwelche Ausrüstung, die die schlagende Spielfigur vorher nicht an sich nimmt, kann sie das im Destruktor tun. Wenn sie sich vorher in irgendeinem Kontrollobjekt "abmelden" muss, kann sie das ebenfalls im Destruktor tun.
  Mit Zitat antworten Zitat
berens

Registriert seit: 3. Sep 2004
434 Beiträge
 
Delphi 10.4 Sydney
 
#18

Re: self.free

  Alt 30. Okt 2005, 20:43
Tja, genau das Problem habe ich auch gerade:

Stellt euch vor -als Beispiel- ich würde ein Notizzettelprogramm schreiben. Jeder vom Benutzer erstellte Notizzettel (meine Komponente) hat einen "Löschen" Knopf.

Wenn bei der Aktion des Buttons Self.Parent.Free aufgerufen wird, führt das zwangsläufig zu einem Programmabsturz.

Deshalb meine Frage: Wir macht man das sauber? Hab ihr noch nie Komponenten gehabt, die der Benutzer zu Laufzeit erstellen und auch wieder löschen kann?

Wie kann die erstellende Komponente den einzelnen Notizzettel löschen, wenn auf JEDEM Zettel selbst ein Löschen Knopf ist?



Edit: http://www.delphipraxis.net/internal...self+self+free

hat mir den Tag gerettet. Das ist doch alles was ich wollte

Evtl "Self" statt "Sender" benutzen.
PostMessage(Self.Handle, WM_KILL_CONTROL, 0, Integer(Self));
  Mit Zitat antworten Zitat
Benutzerbild von faux
faux

Registriert seit: 18. Apr 2004
Ort: Linz
2.044 Beiträge
 
Turbo Delphi für Win32
 
#19

Re: self.free

  Alt 30. Okt 2005, 21:33
Aber du greifst ja über die Form auf die Komponente zu und nicht über sich selbst, oder?
Du erstellst die Komponente ja auch nicht über self.Create...
Über die Klasse, in der du sie erstellst (zB TForm1), in dieser kannst du sie auch wieder Freigeben.

Grüße
Faux
Faux Manuel
Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß.
GoTrillian
  Mit Zitat antworten Zitat
berens

Registriert seit: 3. Sep 2004
434 Beiträge
 
Delphi 10.4 Sydney
 
#20

Re: self.free

  Alt 30. Okt 2005, 21:41
*gnaaa* Sorry, aber die Antwort steht schon in allen anderen Threats drinnen, und ich kann die Logik davon ja nachvollziehen, aber wie sieht es mit der praktischen Umsetzung aus? Wenn JEDER Notizzettel (der ja ne eigene Komponente mit nem eigenen "Löschen" Knopf ist) halt einen Löschen Knopf hat, wie setze ich dass logisch um? Wenn "Löschen" auf den aktuellen Zettel angeklick wird, muss ja dann (wenn der Zettel gelöscht wird) auch logischerweise der Löschen Knopf gelöscht werden.
Wie setze ich das um?

Klick --> Benachrichtigung an Form --> löschen durch das Form klappt ja nicht, weil der auslöser der Löschen funktion ja wiederrum mein Löschen Knopf ist.... Zirkelbezug ohne Ende...
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 3     12 3      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz