1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  try
    Config := TIniFile.Create('InstantBackup.ini'); 
    Config.WriteInteger('Jobinfo', 'JobCount', JobCount); // JobCount abspeichern
    JobGrid.Row := JobCount; // Letzte Zeile auswählen 
    if JobCount = 0 then JobGrid.Row := 1; // damit nicht die erste zeile (Beschriftungen) ausgewählt wird
    repeat
    begin
      Config.WriteString(IntToStr(JobGrid.Row), 'Name', JobGrid.Cells[0,JobGrid.Row]); //Spalteninhalt schreiben
      Config.WriteString(IntToStr(JobGrid.Row), 'Directory', JobGrid.Cells[1,JobGrid.Row]); //Spalteninhalt schreiben
      Config.WriteString(IntToStr(JobGrid.Row), 'Mirror', JobGrid.Cells[2,JobGrid.Row]); //Spalteninhalt schreiben
      JobGrid.Row := JobGrid.Row - 1; // Zur oberen zeile springen
    end; until JobGrid.Row = 1; // von vorn, bis man bei zeile eins angekommen ist
    Config.Destroy;
  except
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  try
    Config := TIniFile.Create('InstantBackup.ini');
    BackupTimer.Interval := Config.ReadInteger('Backup', 'Interval', 60); // irrelevant für mein problem
    JobCount := Config.ReadInteger('Jobinfo', 'JobCount', 0);  // JobCount lesen
    JobGrid.Row := JobCount; // zur letzten zeile springen
    if JobCount = 0 then JobGrid.Row := 1; // siehe oben
    repeat
    begin
      JobGrid.Cells[0,JobGrid.Row] := Config.ReadString(IntToStr(JobGrid.Row), 'Name', ''); // Zeile laden
      JobGrid.Cells[1,JobGrid.Row] := Config.ReadString(IntToStr(JobGrid.Row), 'Directory', ''); // Zeile laden
      JobGrid.Cells[2,JobGrid.Row] := Config.ReadString(IntToStr(JobGrid.Row), 'Mirror', ''); // Zeile laden
      JobGrid.Row := JobGrid.Row - 1;  // Zur oberen zeile springen
    end; until JobGrid.Row = 1; // von vorn, bis man bei zeile eins angekommen ist
    Config.Destroy;
  except
  end;
  JobGrid.Cells[0, 0] := 'Name'; // irrelevant für mein problem
  JobGrid.Cells[1, 0] := 'Ordner'; // irrelevant für mein problem
  JobGrid.Cells[2, 0] := 'Mirror'; // irrelevant für mein problem
  StatusBar.Panels[0].Text := 'Zu erledigende Jobs: ' + IntToStr(JobCount); // irrelevant für mein problem
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

procedure TForm1.FormCreate(Sender: TObject);
  var
    Config: TIniFile;
    i: Integer;
begin
  // Dateiname voll qualifiziert bilden; das mit den relativen Pfaden ist nix...
  Config := TIniFile.Create(ChangeFileExt(Application.Exename,'.ini'));
  BackupTimer.Interval := Config.ReadInteger('Global', 'BackupInterval', 60);
  JobGrid.Cells[0,0] := 'Nr.';
  JobGrid.Cells[1,0] := 'Name';
  JobGrid.Cells[2,0] := 'Ordner';
  JobGrid.Cells[3,0] := 'Mirror';
  JobCount := Config.ReadInteger('Jobinfo', 'JobCount', 0);
  JobGrid.RowCount := JobCount +2; // Anzahl Zeilen setzen
  for i := 1 to JobGrid.RowCount do begin
    JobGrid.Cells[0,i] := IntToStr(i);
    JobGrid.Cells[1,i] := Config.ReadString('Jobinfo', 'Name'+IntToStr(i), '');
    JobGrid.Cells[2,i] := Config.ReadString('Jobinfo', 'Directory'+IntToStr(i), '');
    JobGrid.Cells[3,i] := Config.ReadString('Jobinfo', 'Mirror'+IntToStr(i), '');
  end;
  Config.Free;
  StatusBar.Panels[0].Text := 'Zu erledigende Jobs: ' + IntToStr(JobCount);
end;

procedure TForm1.FormDestroy(Sender: TObject);
  var
    Config: TIniFile;
    i: Integer;
begin
  Config := TIniFile.Create(ChangeFileExt(Application.Exename,'.ini'));
  // Jobinfos komplett entfernen, sonst bleiben Rest beim
  // Löschen von Zeilen aus dem Grid...
  Config.EraseSection('Jobinfo');
  if (JobGrid.RowCount > 1) then begin // wenn Zeilen da sind...
    Config.WriteInteger('Jobinfo', 'JobCount', JobCount);
    for i := 1 to JobGrid.RowCount do begin
      Config.WriteString('Jobinfo', 'Name'+IntToStr(i), JobGrid.Cells[1,i]);
      Config.WriteString('Jobinfo', 'Directory'+IntToStr(i), JobGrid.Cells[2,i]);
      Config.WriteString('Jobinfo', 'Mirror'+IntToStr(i), JobGrid.Cells[3,i]);
    end;
  end;
  Config.Free;
end;