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:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

procedure TForm1.Save(Filename:String);
var 
  ini:TIniFile;
  i,z,q,j,l:Integer;
  s1:string;
begin

// Löschen einer vorhandenen INI-Datei
    if FileExists(Filename) then
      DeleteFile(Filename);
// Daten werden in Konfig.ini geschrieben (Andwendungsdaten des aktiven Users)
    ini := TIniFile.Create(Filename);
    i := 0;
    z := 0;
    for i := 0 to ListView1.GetCount-1 do begin // In einem ListView sind die Daten organisiert
      q := 1;
      s1 := '';
      INC(z);
      ini.WriteString('Section'+inttostr(i+1),'Section',
        ListView1.Items[i].Caption);
      ini.WriteString('Section'+inttostr(i+1),'Key1',
        ListView1.Items[i].SubItems.Strings[0]);

// Der folgende Teil kommt für bestimmte Elemente abgewandelt noch 6-mal

      if ListView1.Items[i].SubItems.Strings[0] = someString1 then begin
        if  (Array1[i] <> '')
        and (Array1[i] <> someString2) then
          ini.WriteString('Section'+inttostr(i+1),'Key2',Array1[i]) else
          ini.WriteString('Section'+inttostr(i+1),'Key2',SomeString2);
        ini.WriteString('Section'+inttostr(i+1),'Key3',Array2[i]);
        ini.WriteString('Section'+inttostr(i+1),'Key4',Array3[i]);
      end;

// (bis hier)

// Dieser Part teilt einen großen Text, der in einem Array steht in 100-Zeichen-Teile auf und schreibt ihn in die INI
      if ListView1.Items[i].SubItems.Strings[0] = someString3 then
        if (Array3[i]<>'') and (Array3[i]<>someString4) then begin
        for j := 1 to length(Array3[i]) do begin
          if j MOD 100 = 0 then begin
              INC(q);
              s1 := '';
              ini.WriteString('Section'+inttostr(i+1),'Key5_'+inttostr(q),s1);
          end;
          if Array3[i][j] <> '' then begin
            ini.WriteString('Section'+inttostr(i+1),'Count',inttostr(q));
            s1 := s1 + Array3[i][j];
            ini.WriteString('Section'+inttostr(i+1),'Key5_'+inttostr(q),s1);
          end;
        end;
        if q = 1 then begin
          ini.WriteString('Section'+inttostr(i+1),'Key5_1',s1);
          ini.WriteString('Section'+inttostr(i+1),'Count','1');
        end;
      end else
        ini.WriteString('Section'+inttostr(i+1),'Key5',someString4);

    end;
  ini.WriteInteger('SectionCount','Count',z);
  ini.Free;
end;					

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

for j := 1 to length(Array3[i]) do
  begin
  if j MOD 100 = 0 then
    begin
    INC(q);
    s1 := '';
    ini.WriteString('Section'+inttostr(i+1),'Key5_'+inttostr(q),s1);
    end;
  if Array3[i][j] <> '' then
    begin
    ini.WriteString('Section'+inttostr(i+1),'Count',inttostr(q));    //<- !!!
    s1 := s1 + Array3[i][j];
    ini.WriteString('Section'+inttostr(i+1),'Key5_'+inttostr(q),s1); //<- !!!
    end;
  end;					

1:
2:
3:
4:
5:
6:
7:

for j := 0 to length(Array3[i]) div 100 do
          begin
            ini.WriteString('Section'+inttostr(i+1), 'Key5_'+inttostr(j+1), '');
            ini.WriteString('Section'+inttostr(i+1), 'Key5_'+inttostr(j+1),
              Copy(Array3[i], j*100+1, 100));
            ini.WriteString('Section'+inttostr(i+1), 'Count', inttostr(j+1));
          end;					

1:
2:
3:
4:
5:
6:
7:
8:

var Sec: String;
    Count: Integer;
begin
  Sec := 'Section' + IntToStr(Succ(i));
  Count := Succ(Length(Array3[i]) div 100));
  for j := 1 to Count do
    ini.WriteString(Sec, 'Key5_' + IntToStr(j), Copy(Array3[i], Pred(j)*100, 100));
  ini.WriteString(Sec, 'Count', IntToStr(Count);