Thema: if Schleife?

Einzelnen Beitrag anzeigen

Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.388 Beiträge
 
Delphi 12 Athens
 
#10

Re: if Schleife?

  Alt 11. Mär 2010, 20:43
Vermutung:
In deinem restlichen Quelltext fehlt irgendwo ein "end". Dadurch kommen machmal komische Programmabläufe zustande.
Formatiere deinen gesamten Quelltext mal etwas übersichtlicher und kontrolliere die begin/end Blöcke.



Beispiel um die Zusammengehörigkeit der begin/end besser zu sehen, da untereinander
Delphi-Quellcode:
form1.Caption := IntToStr(firststart);
firststart := 0;
if(firststart = 0) then
  begin
    if MessageDlg('Do you want to play Backgroundmusic ?', mtConfirmation, [mbYes, mbNo], 0)=mrYes then
      begin
        Musik :='1';
        ini.WriteString('Global', 'Musik', '1');
        ini.WriteString('Global', 'firststart', '0');
      end
        else
          begin
            Musik:='0';
            ini.WriteString('Global', 'Musik', '0');
            ini.WriteString('Global', 'firststart', '0');
          end;
  end;
  Mit Zitat antworten Zitat