Speichern von Projekt mit Progressbar

[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