Versionsnamen wechseln

[Zacherl]

Zitat:

Zitat von Dunkelbunt27 (Beitrag 1096828)

Wenn die letzte Datei Übung_v1.csv heißt und man sie läd und dann folgendes anwendet:

Delphi-Quellcode:

Dateiname := Übung_v1.csv;
NeuerName := Format(Dateiname+'_v%d.csv',[i]);

Dann kommt doch nicht Übung_v2.csv raus, oder?

Negativ. Es würde "Übung_v1.csv_v2.csv" rauskommen. Die Möglichkeit mit Pos() ist eigentlich nur zu empfehlen :) Allerdings kann ein Troll User natürlich immer noch die Datei so umbenennen, dass er das "_vX" entfernt.

[Dunkelbunt27]

So funktionierts:
mit

Delphi-Quellcode:

Pos(Dateiname, '_v')

herausfinden wo die Version angehängt wird, dann ab der Stelle alles löschen:

Delphi-Quellcode:

Delete(Dateiname, Stelle, 20); //ich wusste nichts besseres als 20 um alles zu löschen

Dann die Dateiendung anhängen.
Daurch hat man den 'reinen' Namen.

Zitat:

Zitat von Zacherl (Beitrag 1096834)

Allerdings kann ein Troll User natürlich immer noch die Datei so umbenennen, dass er das "_vX" entfernt.

Das ist wohl war...

Tja, jetzt muss ich nurnoch rausfinden, wieso ich eine Zugriffsverletzung bekomme, wenn man speichern abbricht und dann erneut versucht :(

[Zacherl]

Statt 20 nimm einfach Length(FileName), dann kannst du sicher sein, dass alles weg ist.

[Dunkelbunt27]

Zitat:

Zitat von Zacherl

Statt 20 nimm einfach Length(FileName), dann kannst du sicher sein, dass alles weg ist.

Okay, das ist gut.