Beim Speichern wir der Pfad zwei mal eingetragen!!!

[thbi]

Ich speichere eine ListView mit nem SaveDialog und wenn ich dann auch speichern klicke Schreibt der mir einen Teil des Pfades zweimal rein!!! Warum???

Hier der Quellcode:

Delphi-Quellcode:

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

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

    End;
    SaveList.SaveToFile(SaveDialog1.FileName);
  Finally
    FreeAndNil(SaveList);
  End;
End;

Danke im Voraus.


Mfg thbi