Hallo alle miteinander,
ich hoffe ich bin in der richtigen Kategorie gelandet! Ich versuche seit einigen Tagen in ein Unterrichtsprojekt eine Speicherfunktion einzubauen. Das ganze wird ein Spiel und das Speichern in einer Inidatei funktioniert auch spitze. Ich habe nur ein Problem mit dem Reinladen der Daten. Es wird keine Fehlermeldung ausgegeben allerdings werden die Werte nicht für das Programm übernommen.
Hier Ausschnitte aus dem Code:
Die Funktion zum Laden der Elemente:
Delphi-Quellcode:
procedure TForm1.Button8Click(Sender: TObject);
begin
filename := ExtractFilePath(ParamStr(0)) + 'Gesamt.ini';
ini := TIniFile.Create(filename);
eost := ini.ReadFloat('ost', 'eost', eost);
xost := ini.ReadFloat('ost', 'xost', xost);
ini.Free;
if xost > 0 then tost1.Interval:=5000;
if xost > 0 then tost1.Enabled:= true;
timer1.Interval:=1000;
timer1.Enabled := true;
timer2.Interval:=5000;
timer2.Enabled := true;
end;
Dort sollen die Werte verwendet werden:
Delphi-Quellcode:
procedure TForm1.sostClick(Sender: TObject);
begin
if g<50
then ShowMessage('Sie haben zu wenige Geld.');
if g>=50
then g:= g-50;
xost:= xost+1;
tost1.Interval:=5000;
tost1.Enabled:= true;
end;
Ich hoffe ihr könnt mir helfen! Danke.