Speichern von Projekt mit Progressbar

[Shak-K]

Hallo,

wir sind noch relative Delphi-Rookies und sind gerade dabei ein Programm zu programmieren, indem Progressbars durch einen Timer immer abnehmen oder zunehmen (es soll so eine Art Tamagotchi-Spiel werden).
Ein Problem haben wir nur beim Speichern des Spiels- man soll es ja später auch weiterführen können.
Das Speichern von Zahlenwerten und Text hatten wir in Info, bei dem Stand eines Progressbars stehen wir aber vor einem großen Rätsel.
Über Hilfe wären wir also sehr dankbar.

Danke
Lina

[bundy]

Hy
Der Progressbar hat ja den Parameter Position, der wiederum vom type integer ist, also eine Zahl.

Du könntest diesen Parameter in ein Inifile schreiben, und bei bedarf laden.

[Kroko1999]

Progressbar.Position ist doch auch nur eine Zahl, oder :wink:

[bundy]

das mit dem laden würde so funktionieren von einer ini Datei

Delphi-Quellcode:

var
  myconfig:TIniFile;

procedure TForm1.FormCreate(Sender: TObject);
var
myconfig:TIniFile;
begin
myconfig:=TIniFile.Create('.\myConfig.ini');
ProgressBar1.Position:=StrToInt(myconfig.ReadString('Progressbars','Progressbar1','0'));

end;

beim schließen des Programmes könntest du :

Delphi-Quellcode:

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 myconfig.WriteString('Progressbars','Progressbar1',IntToStr(ProgressBar1.Position));
end;

lg
bundy

[DeddyH]

Oder gleich WriteInteger/ReadInteger verwenden, dann sparst Du Dir die Typumwandlung ;)