Versionsnamen wechseln

[Zacherl]

Zitat von Dunkelbunt27:

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 Pos(Dateiname, '_v') herausfinden wo die Version angehängt wird, dann ab der Stelle alles löschen:
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 von Zacherl:

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 von Zacherl:

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

Okay, das ist gut.