Einzelnen Beitrag anzeigen

alanblack

Registriert seit: 31. Okt 2003
Ort: Reichertshausen (40km von münchen)
171 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Listview Items in eine Ini-Datei schreiben

  Alt 6. Apr 2004, 17:04
Das allgemeine Speichern müsste so funktionieren.

Code:
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;
hoffe das ich helfen konnte

mfg alanblack
Irren ist menschlich, programmieren göttlich
  Mit Zitat antworten Zitat