if Schleife?

[haentschman]

...ist ja alles gut und schön, hilft aber nicht bei dem Problem

Hänge doch mal die gesamte Unit an. Mit diesem Ausschnitt kann man nicht wirklich weiterkommen.

[Sanguis]

Hab die Unit angehängt, ist aber nicht grade klein

[mirage228]

Entferne Zeile 366 (firststart := 0; ) und versuche es erneut. Dann sollte es ggf. klappen

[Sanguis]

Nein, klappt leider nicht...

[Balu der Bär]

Zitat von Wolfgang Mix:

Wenn du "If-Schleife" nicht aus deinem Wortschatz streichst, wirst du noch öfter anecken.

Du würdest weniger anecken wenn du anstatt eines sinnlosen

Zitat von Wolfgang Mix:

If-Schleifen gibt es nicht!

den User lieber normal und in einem freundlichen Ton aufklären würdest.

[mirage228]

Der Pfad könnte ggf. falsch sein, verwende "IncludeTrailingPathDelimiter". Weiterhin solltest Du eher auf firststart = 1 prüfen. Die Abfrage nach der Musik soll ja beim ersten Start kommen

Delphi-Quellcode:

  Ini := TIniFile.Create(IncludeTrailingPathDelimiter(Self.programmdirectory.Caption) + '..\game.ini');
  try
    Ausgelesen := Ini.ReadString('Global', 'LangFile', ''); // 1
    stream := Ini.ReadString('Global', 'Stream', '');
    music := Ini.ReadInteger('Global', 'Music', 0);
    slot := Ini.ReadString('Global', 'Slot', '');
    musik := Ini.ReadString('Global', 'Musik', '');
    firststart := Ini.ReadInteger('Global', 'firststart', 0);

    Self.Caption := IntToStr(firststart);
    if (firststart = 1) 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;
  finally
    Ini.Free; 
  end;

[DeddyH]

Ich muss leider zugeben, dass ich keine Ursache für dieses Verhalten finden kann. Es handelt sich um eine lokale Variable des korrekten Typs, die Abfrage sollte IMO auf jeden Fall erreicht werden, die Bedingung trifft auch zu, da explizit vorher sichergestellt . Es könnte höchstens sein, dass ich aufgrund der ziemlich gruseligen Formatierung einen Fall übersehen habe.

[haentschman]

ich hab das ganze mal eingerückt und nach den begin /end geschaut. Sieht soweit in Ordnung aus. Dann weis ich auch nicht mehr.

[Sanguis]

Leider hilft das nicht, der Pfad stimmt, die Ini Datei wird auch korrekt ausgelesen. Das Ergebnis steht ja auch in form1.caption, kann ich also überprüfen. Und das stimmt.

[mirage228]

Also beim Start der Anwendung (FormCreate bzw. FormShow) hatte ich manchmal Probleme mit Application.MessageBox. Vielleicht trifft dieses Problem ja auch hier bei MessageDlg zu:

Versuch mal statt

Delphi-Quellcode:

      if MessageDlg('Do you want to play Backgroundmusic ?', mtConfirmation, 
        [mbYes, mbNo], 0) = mrYes then

dieses:

Delphi-Quellcode:

      if MessageBox(Handle, 'Do you want to play Backgroundmusic ?', 'Confirmation', 
        MB_YESNO or MB_ICONQUESTION) = IDYES then