Registriert seit: 20. Jul 2005
Ort: Essen
146 Beiträge
|
if Schleife?
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
|
|
Zitat
|