Thema: if Schleife?

Einzelnen Beitrag anzeigen

Sanguis

Registriert seit: 20. Jul 2005
Ort: Essen
146 Beiträge
 
#1

if Schleife?

  Alt 11. Mär 2010, 20:05
Hallo,

ich wurde gebeten, zu dem Thema einen neuen Thread zu eröffnen.
Code ist folgender:
Delphi-Quellcode:
Ini := TIniFile.Create(form1.programmdirectory.Caption+'..\game.ini');
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);

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;
 Ini.Free;
Das Problem ist, die Variable "firststart" wird einfach übergangen. Die dazugehörige if Schleife, macht einfach nichts und ich weiß nicht wieso. Haltepunkte in der if Schleife, funzen nicht.

Gruß,
Andreas
  Mit Zitat antworten Zitat