Problem mit Schleife im OnClose Event

[MasterC]

Hi,

Delphi-Quellcode:

//Ungespeicherte Dateien abfragen

  For i:=0 to tabber1.PageCount-1 do begin
    If tabber1.Pages[i] <> Help then begin //Help Seite ausschließen
      If changede[tabber1.Pages[i].PageIndex] = true then begin //Gespeicherte Dateien ausschließen
        checkcaption:=tabber1.Pages[i].Caption;
        tabber1.Pages[i].Show;
        Wert := 0;
        Wert := MessageDlg('Soll die Datei "'+checkcaption+'" vor dem Beenden gespeichert werden?', mtConfirmation, [mbYes, mbNo, mbnotoall, mbCancel], 0);
        If Wert = mrcancel then begin Action:=caNone; break; end;
        If Wert = mrYes then mainform.Save.Execute;
        If wert = mrnotoall then break;
      end;
    end;
  end;

Bei der ersten Abfrage klappt alles wunderbar. Obwohl noch mehrere ungespeicherte Dateien geöffnet sind werden keine mehr abgefragt, sondern das Programm wird beendet.

[Luckie]

Mit break verlässt du die Schleife, somit werden keine weiteren Abfragen durchgeführt. Nimm statt dessen bei mbCancel mal Continue.

[MasterC]

Er fragt trotzdem weitere Dateien nicht ab.

[MasterC]

*Push* Sry, für den Doppelpost, aber ich muss das wissen. Ist wichtig.

MfG ganxta.

[Luckie]

Schon mal den Teil debuggt und Schritt für Schritt durchgegangen und gekuckt, was passiert?

[MasterC]

Ja, habe ich schon. Nachdem der das erste mal fragt springt er zum Anfang der Schleife:

For i:=0 to tabber1.PageCount-1 do begin Edit: Danach verlässt er die Schleife.

[Luckie]

Ja schön und dann? Setz dich doch mal zwanzig Minuten hin und debugg das Ding mal vernünftig.

[mirage228]

Hi,

guck mal ob Changede[Tabber1.Pages[i ].PageIndex] überhaupt = True ist...

mfG
mirage228

[MasterC]

Oh wie peinlich...

Daran lag es. Jetzt muss ich mal gucken warum er meint es wäre nicht true, denn eigentlich ist es ja true.

THX mirage228.

MfG ganxta.