Zitat von
MichaelLinden:
Was hast du denn da vor?
Ich würde es so machen:
- Form 1 öffnen
- Integerwert in INI-File speichern
- Beim wiederöffnen, INI-Wert lesen, um eins erhöhen usw
Genau so meinte ich das ja auch, nur halt ohne Code^^
Hier ne kleine Verbesserung deines Codes weil es sonst unter Vista ggf zu komplikationen kommen kann und es auch nie gut ist was auf C oder sonstwelche Verzeichnisse zu speichern!
Delphi-Quellcode:
uses
{...,} IniFiles;
procedure TForm1.FormCreate(Sender: TObject);
var
ini: TiniFile;
iCount: Integer;
begin
try
ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'count.ini');
iCount := ini.ReadInteger('Openings', 'Counts', 1);
iCount := iCount + 1;
ini.WriteInteger('Openings', 'Counts', iCount);
finally
ini.Free;
end;
end;