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

[bttb930]

hä? wo schreibt der einen teil des pfades zweimal rein?

[Kroko1999]

irgendwo kann man (oder nicht) mit extractFileName arbeiten

aber bei dem Code sehe ich nicht durch :gruebel:

[thbi]

Zitat:

irgendwo kann man (oder nicht) mit extractFileName arbeiten

Hab darüber nichts gefunden!! Auch wenn ich den Pfad diereckt eingebe kommt ne Fehlermeldung mit dem Doppelten Pfad.





Mfg thbi

[Mr_G]

Ich versteh nicht recht was für ein Fehler da auftauchen soll :gruebel: ...
Für mich sieht der Code eigentlich in Ordnung aus.

[thbi]

Da die Fehlermeldung!!


mfg thbi

[Christian Seehase]

Moin thbi,

wo tritt denn der Fehler auf? (welche Zeile?)
Das was Du da gepostet hast enthält keinen Fehler.

Ggf. solltest Du mal im Einzelschritt durchgehen, und Dir die Variableninhalte mal anschauen.

[thbi]

Der meint in der Zeile

Delphi-Quellcode:

  If Not SaveDialog1.Execute Then Exit;

Ist es.

Hab auch schon den SaveDialog gelöscht und neu gemacht hat auchh nichts gebracht.


Mfg thbi

[Mr_G]

Kommt der Fehler nachdem du den Opendialog beendet hast oder vorher?

[thbi]

Vorher bzw. mittendrinnen<- ist eher!!!


Mfg thbi