Stack-Überlauf

[Array]

Hallo Leute!

Hab folgenden Code:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Gespeichert = 'Ja' then begin
   Close;
end else begin
if (MessageDlg('Sie haben nicht gespeichern! Wollen Sie vor dem Beenden speichern?', mtWarning, [mbYes, mbNo], 0) = mrYes) then begin
bt_save.click;
close;
end;
if (MessageDlg('Sie haben nicht gespeichern! Wollen Sie vor dem Beenden speichern?', mtWarning, [mbYes, mbNo], 0) = mrNo) then begin
close;
end;
end;
end;

Immer wenn er aus geführt wird kommt ein Stack-Überlauf!

Worauf ist das zurückzuführen?

Danke im Voraus!

Liebe Grüße

Array

[BUG]

Wird wohl an den close liegen.
Kommentiere es mal aus und probiere was passiert.

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if Gespeichert = 'Ja' then
   begin
      //close;
   end else begin
      if (MessageDlg('Sie haben nicht gespeichern! Wollen Sie vor dem Beenden speichern?', mtWarning, [mbYes, mbNo], 0) = mrYes) then
      begin
         bt_save.click;
         //close;
      end;
      if (MessageDlg('Sie haben nicht gespeichern! Wollen Sie vor dem Beenden speichern?', mtWarning, [mbYes, mbNo], 0) = mrNo) then
      begin
         //close;
      end;
   end;
end;

[hans ditter]

Mal eine andere Anmerkung... ist da nicht eine MessageDlg zu viel? Wenn die erste nicht Ok gedrückt wird, dann wird doch einfach geschlossen, oder nicht? Ansonsten würde ja auch ein einfacher else-Zweig reichen.
Weil so wird ja zweimal eine MessageDlg aufgerufen... vlt führt das auch zum Überlauf?

LG; hans ditter

[Array]

Hans:

Ja, hast Recht - hab vergessen das raus zu tun - hab ein wenig herum probiert um den Stackfehler wegzubekommen...

BUG:

Auch du hast Recht - es lag an den Close - die braucht man gar nicht...

Danke!

[Helmi]

Hallo,

ein close im Ereignis OnClose ruft wiederrum OnClose auf. Da da aber ein close drin ist, wiederholt sich das ständig, bis der Stack (über-)voll ist.

Solche Abfragen sollten in OnCloseQuery rein.

Beispiel:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  //Beenden erlauben/verweigern
  CanClose := (Gespeichert = 'Ja') or (MessageDlg('Sie haben nicht gespeichern! Wollen Sie vor dem Beenden speichern?', mtWarning, [mbYes, mbNo], 0) = mrYes);
end;

CanClose = true sagt, dass die Anwendung geschlossen werden kann.

Bei Abfrage auf mrYes wird CanClose true wenn der Bediener auf "Ja" klickt. Klickt er auf "Nein" dann ist CanClose false und es wird nicht geschlossen.

Der Code zum Speichern dann in das OnClose. Dies wird nur aufgerufen, wenn das CanClose in OnCloseQuery auf true gesetzt wurde.

Das würde dann so aussehen:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //Button "sichern" anklicken
  bt_save.click;
end;

[Edit]
Die Abfrage auf gespeichert ebenfalls in das OnCloseQuery gelegt. Dadurch kommt keine Meldung wenn Gespeichert = 'Ja' ist.

[alfold]

Erstens das, und zweitens kommt er aus seiner close nie raus so wie es jetzt da steht!

Besser ist die Abfrage auch im onCloseQuery zu machen und dann CanClose je nach Bedingung zu setzen!

mist zu langsam

Gruss alfold

[Helmi]

Zitat von alfold:

mist zu langsam

[OT] HaHa! [/OT]

[himitsu]

ich will auch noch

Sagen wir es mal anders, oder man schaue mal in die OH.
TForm.OnClose TForm.OnCloseQuery



OnClose wird aufgerufen, wenn die Form endgültig geschlossen wird

OnCloseQuery wird davor aufgerufen, bevor überhaupt feststeht ob wirklich geschlossen werden soll



PS: hat sich mal jemand den Action-Parameter angesehn?
Vorallem das caMinimize (TCloseAction) ... ich glaub da kann shnell mal was passieren, was ihr eigentlich nicht wollt

[BUG]

Allgemein sollte man bei Stacküberläufen gucken, ob man rekursiver programmiert hat als man vorhatte

[himitsu]

Zitat von BUG:

Allgemein sollte man bei Stacküberläufen gucken, ob man rekursiver programmiert hat als man vorhatte

Das ist zwar oftmals wirklich der Grund, aaaaaaaber

Delphi-Quellcode:

procedure TForm5.FormCreate(Sender: TObject);
var
  a: array[0..12345678] of Byte;
begin
  if a[0] = 0 then
    // nix (keine Lust)
end;

Und nun such mal den rekursiven Aufruf