Reload

[Fussel9]

Es gibt auch schon das nächste Problem mit meiner alternativ Lösung:

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
begin
name:=EName.Text;
Mediaplayer1.Stop;
save := TIniFile.Create('.\save\SaveFile.ini');
//try
if save.SectionExists(name)=True then
  //wenn name existiert:
  begin
    if MessageDlg('Kaktus existiert bereits, Laden?',mtConfirmation,mbYesNo,0)=mrYes then
      //wenn Laden Ja
      begin
        sek:=save.ReadInteger(name,'ZeitSek',0);
        min:=save.ReadInteger(name,'ZeitMin',0);
        h:=save.ReadInteger(name,'ZeitH',0);
        hunger:=save.ReadInteger(name,'Hunger',30);
        durst:=save.ReadInteger(name,'Durst',30);
        laune:=save.ReadInteger(name,'Laune',50);
        alter:=save.ReadInteger(name,'Alter',0);
        gesundheit:=save.ReadInteger(name,'Gesundheit',100);
      //finally
        save.Free;
        LSekunden.caption:=IntToStr(sek);
        LMinuten.caption:=IntToStr(min);
        LStunden.caption:=IntToStr(h);
        LAHunger.caption:=IntToStr(hunger);
        LADurst.caption:=IntToStr(durst);
        LALaune.caption:=IntToStr(laune);
        LAAlter.caption:=IntToStr(alter);
        LAGesundheit.caption:=IntToStr(gesundheit);
        frame:=0;
        EssenF:=0;
        TrinkenF:=0;
        SpielenF:=0;
        Mediaplayer2.Play;
        Form1.Caption:=EName.Text;
        Button7.visible:=False;
        EName.visible:=False;
        Label1.visible:=False;
        Panel5.visible:=False;
        PName.caption:=EName.Text;
      end
      //Wenn Laden Nein-> Else:Empty...
  end
else
//Wenn name nicht existiert
  sek:=save.ReadInteger(name,'ZeitSek',0);
  min:=save.ReadInteger(name,'ZeitMin',0);
  h:=save.ReadInteger(name,'ZeitH',0);
  hunger:=save.ReadInteger(name,'Hunger',30);
  durst:=save.ReadInteger(name,'Durst',30);
  laune:=save.ReadInteger(name,'Laune',50);
  alter:=save.ReadInteger(name,'Alter',0);
  gesundheit:=save.ReadInteger(name,'Gesundheit',100);
  save.Free;
  LSekunden.caption:=IntToStr(sek);
  LMinuten.caption:=IntToStr(min);
  LStunden.caption:=IntToStr(h);
  LAHunger.caption:=IntToStr(hunger);
  LADurst.caption:=IntToStr(durst);
  LALaune.caption:=IntToStr(laune);
  LAAlter.caption:=IntToStr(alter);
  LAGesundheit.caption:=IntToStr(gesundheit);
  frame:=0;
  EssenF:=0;
  TrinkenF:=0;
  SpielenF:=0;
  Mediaplayer2.Play;
  Form1.Caption:=EName.Text;
  Button7.visible:=False;
  EName.visible:=False;
  Label1.visible:=False;
  Panel5.visible:=False;
  PName.caption:=EName.Text;
end;

Hier mal die Proz um dies eig. geht, Wenn Laden?-> Nein, sollte doch eigentlich nichts passieren oder? Falsch, er macht muter fröhlich mit dem ganznormalen handler weiter also quasi mit dem Laden?-> Ja Handler oder dem SectionExists->False handler... aber warum?