Datei    Größe    Kommentar

[Dateien]
Datei1=...
Datei2=...
[Groesse]
Groesse1=...
Groesse2=...
[Kommentar]
Kom1=...
Kom2=...

[ListView]
Datei1.dat=24;Hallo Welt K1
Datei2.dat=34;Hallo Welt K222
Datei3.dat=0;Hallo Welt 231

Var
  SaveList: TStrings;
  i, j: Integer;
  TempStr: String;
Const
  Delimitter = #14;

Begin
  If Not SaveDialog1.Execute Then Exit;
  SaveList := TStringList.create;
  Try
    // ListView
    With ListView1 Do
    Begin
      // durch alle Items laufen
      For i := 0 To pred(Items.Count) Do
      Begin
        TempStr := '';
        With Items[i] Do
          // und durch alle SubItems
          For j := 0 To pred(SubItems.Count) Do
            TempStr := TempStr + Delimitter + SubItems[j];

        SaveList.Add(Items[i].Caption + TempStr);
      End;

    End;
    // Speichern
    SaveList.SaveToFile(SaveDialog1.FileName);
  Finally
    // Freigeben ...
    FreeAndNil(SaveList);
  End;
End;

var sTmp : String;
    i, j : Integer;

for i := 0 to lst.Count - 1 do
    begin
      sTmp := '';
      for j := 0 to lst.Items[i].SubItems.Count - 1 do
          sTmp := sTmp + ';' + lst.Items[i].SubItems[j];
      ini.WriteString('ListView', lst.Items[i].Caption, sTmp);
    end;

var lst : TStringList;


ini.GetValueList('ListView', lst); // hole alle Values einer Section soll das heißen

for i := 0 to lst.Count - 1 do
    with lst.Items.Add do
      begin
        Caption := lst[i];
        sTmp := ini.ReadString('ListView', lst[i], '');
        while Length(sTmp) > 0 do
          begin
            iPos := Pos(';', sTmp);
            if iPos = 0 then
               iPos = Length(sTmp) + 1;
            SubItems.Add(Copy(sTmp, 1, iPos - 1);
            sTmp := Copy(sTmp, iPos + 1, MaxInt);
          end;
      end;

Var
  LoadList: TStrings;
  i, ActPos, PrevPos: Integer;
Const
  Delimitter = #14;

Begin
  If Not OpenDialog1.Execute Then Exit;
  LoadList := TStringList.create;

  Try
    //Laden...
    LoadList.LoadFromFile(OpenDialog1.FileName);
    // Lösche den ListView
    ListView1.Items.Clear;

    //Laufe durch Zeilen der StringList
    For i := 0 To pred(LoadList.Count) Do
    Begin
      PrevPos := 1;
      ActPos := 1;
      //Erste Position des Delimitters
      ActPos := PosEx(Delimitter, LoadList[i], succ(ActPos));
      // Erstelle Item
      With ListView1.Items.Add Do
      Begin
        //setze Caption des neuen Items
        Caption := Copy(LoadList[i], PrevPos, (ActPos - PrevPos));
        PrevPos := succ(ActPos);
        //erzeuge für jeden gefundenen Delimitter ein SubItem
        Repeat
          ActPos := PosEx(Delimitter, LoadList[i], succ(ActPos));
          If ActPos <> 0 Then
            SubItems.Add(Copy(LoadList[i], PrevPos, (ActPos - PrevPos)))
          Else
            SubItems.Add(Copy(LoadList[i], PrevPos, Length(LoadList[i])));
          PrevPos := succ(ActPos);
        //Wenn ActPos = 0 (kein Delimitter gefunden) -> fertig
        Until ActPos = 0;
      End;
    End;