Stochastische Access Violation beim Schließen einer Form!

[Euklid]

@Euklid:
Ist es mit TForm.Create(nil) immer noch derselbe AV?

Habe deinen Vorschlag soeben in meiner Version von Promathika umgesetzt. Bin gespannt, ob es noch zur AV kommt.

Application.CreateForm() ist auf jedenfall falsch wenn man das Formular selbst freigeben will.
TForm.Create(nil) sollte zumindest erst mal das Problem in DoIdleActions() lösen.

Ok, dann steckt hier eine mögliche Fehlerquelle. Im Laufe des Tages wollte der CPU-Quäler sich nochmal auf Bugsuche begeben, nehme an, er wird deinen Vorschlag auch probieren. Mit Windows wird er wesentlich früher sagen können, ob die AV noch auftritt.

Es gibt aber wie gesagt noch einen Haufen weiterer Fehlerquellen, auf die man achten muß.

Ja, mir erscheint der richtige Umgang mit Forms in der Tat recht undurchschaubar - gerade weil, wie du schilderst, so viele Prozesse im Hintergrund ablaufen, über die man als jemand, der nicht in die Internas zur Formverwaltung eingeweiht ist, kaum einen Überblick hat. Deshalb wäre ich dafür, dass von Lazarus aus Funktionen angeboten werden, die die Formprogrammierung entsprechend vereinfachen.

Viele Grüße, Euklid

EDIT:
So. Habe das gerade probiert:
Wenn ich

Code: Alles auswählen

Application.CreateForm(tFFuncEdit, FFuncEdit);

durch

Code: Alles auswählen

FFuncEdit:=tFFuncEdit.create(nil);

ersetze, setzt er FFuncEdit offenbar auf nil und es kommt bei der nächsten Wertzuweisung zu einer AV. War der Tipp möglicherweise anders gemeint?

[theo]

durch

Code: Alles auswählen

FFuncEdit:=tFFuncEdit.create(nil);

ersetze, setzt er FFuncEdit offenbar auf nil und es kommt bei der nächsten Wertzuweisung zu einer AV. War der Tipp möglicherweise anders gemeint?

Wie meinst du das?

Sowas geht bei mir ohne Probleme:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  Aform:=TForm2.create(nil);
  Aform.Caption:='test';
  Aform.ShowModal;
  Aform.free;
end;

[CPU-Quaeler]

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  Aform:=TForm2.create(nil);
  Aform.Caption:='test';
  Aform.ShowModal;
  Aform.free;
end;

@Theo: Nachdem ich deinen zitierten Vorschlag nochmals ausprobiert habe, hatte ich schon beim Öffnen der Forms Zugriffsverletzungen, aber andere. Aber das war dadurch begründet, dass ich "OnCreate" schon versucht habe, an der Form veränderungen umzusetzen und aktualisierungs-Routinen aufzurufen (wobei ich noch nicht so ganz nachvollziehen kann, warum - schließlich hat es vorher schon so funktioniert). Also hab ich die ganzen Routinen, die mit der Erzeugten Form arbeiten (und schon einmal beim Öffnen der Form ausgeführt werden müssen), in das "OnShow"-event verlagert, und siehe da...keine AV mehr....zumindest nicht nach ca. 50mal Öffnen, aktualisieren, Optionen ändern und schließen. Ich hoffe mal, das Problem hat sich damit ein für alle mal erledigt. In Win7x64 tritt es nicht mehr auf. Jetzt muss es nur noch in Ubuntu funktionieren => Test folgt! Vielen Dank nochmal, auch an die anderen, die sich an der Diskussion beteiligt haben.

Euklid und ich werden berichten, ob das Problem damit auch in Linux behoben ist.

[Socke]

@Theo: Nachdem ich deinen zitierten Vorschlag nochmals ausprobiert habe, hatte ich schon beim Öffnen der Forms Zugriffsverletzungen, aber andere. Aber das war dadurch begründet, dass ich "OnCreate" schon versucht habe, an der Form veränderungen umzusetzen und aktualisierungs-Routinen aufzurufen (wobei ich noch nicht so ganz nachvollziehen kann, warum - schließlich hat es vorher schon so funktioniert). Also hab ich die ganzen Routinen, die mit der Erzeugten Form arbeiten (und schon einmal beim Öffnen der Form ausgeführt werden müssen), in das "OnShow"-event verlagert, und siehe da...keine AV mehr....zumindest nicht nach ca. 50mal Öffnen, aktualisieren, Optionen ändern und schließen. Ich hoffe mal, das Problem hat sich damit ein für alle mal erledigt. In Win7x64 tritt es nicht mehr auf. Jetzt muss es nur noch in Ubuntu funktionieren => Test folgt! Vielen Dank nochmal, auch an die anderen, die sich an der Diskussion beteiligt haben.

Euklid und ich werden berichten, ob das Problem damit auch in Linux behoben ist.

Das OnCreate wird in TCustomForm.Create aufgerufen. Alles was man von Hand im Code es abgeleiteten Constructors bearbeitet ist noch nicht vorhanden. Alternativ muss man das Event am Ende des eigenen Constructors von Hand aufrufen.

[piper62]

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  Aform:=TForm2.create(nil);
  Aform.Caption:='test';
  Aform.ShowModal;
  Aform.free;
end;

Der schon zitierte Code sollte einwandfrei auf jedem OS laufen.
Wie schon angedeutet ist genau darauf zu achten wie das Create aber auch das Free ablaufen. Ev. kommt es hier mit anderen dynamisch erzeugten Objekten auf die zugegriffen wird zu Kollisionen.
Wir erzeugen in unserer Anwendung dauernd Forms dynamisch, auch mit Zugriff auf Datenbanken, und haben nur dann Probleme gehabt wenn an folgenden Stellen nicht sorgfältig vorgegangen wurde:
-OnCreate
-OnShow
-OnActivate
-OnClose, bzw. dem anschließenden Free.

Mein Tipp ist hier nochmal nachzuforschen wie die abhängigen Objekte erzeugt und wieder freigegeben werden.

Grüße,
Piper

[Patito]

Wie ich das beobachtet habe schieben Delphi-Entwickler gerne per Trial&Error Code zwischen OnCreate, OnShow, OnActivate hin und her bis die Anwendung nicht mehr crasht. (Insesondere wenn man es mit mehrere Formulare gleichzeitig zu tun hat).

Ein wenig solider ist es gleich eine View-Klasse zu erstellen, die dann für die Erstellung und Entsorgung der Daten zuständig ist.

z.B. sowas:

Code: Alles auswählen

TMyView = class(TObject)
public
  Form1: TForm1;
  Form2: TForm2;
 
  constructor Create;
  destructor Destroy; override;
end;
 
constructor TMyView.Create()
begin
  self.Form1 := TForm1.Create;
  self.Form2 := TForm2.Create;
  //...erstellen der Zusatzdaten
  //..... self.Form1.xyz:= 
end;

TMyView kann dann die Zusatz-Daten erzeugen und initialisieren. Damit hat man die Reihenfolge deutlich besser im Griff. Und man hat auch noch einen Ort, an dem man leicht verschiedene Init() und CleanUp() Prozeduren ablegen kann.

[Euklid]

Euklid und ich werden berichten, ob das Problem damit auch in Linux behoben ist.

Hallo Leute,

ich freue mich, Euch berichten zu können: Auch unter Linux scheinen alle Probleme behoben zu sein!

Nocheinmal ein Dank an alle, die uns hier mit Rat und Tat geholfen haben!

Viele Grüße, Euklid

[monta]

@euklid: na dann...ich warte

[Euklid]

@euklid: na dann...ich warte

Promathika V1.0 is coming soon...