Teilstring ersetzen?

[AlexII]

Hallo,

mein Programm erstellt Dateien in diesem Schema:

Zitat:

Eine Datei(1).txt
Eine Datei(2).txt

Und das mache ich so:

Delphi-Quellcode:

n:=n+1;
Filename:=Dateiname + '(' + n + ')' + '.txt';

Für einen Anderen Zweck habe ich danach nur die Variable "Filename" zur Verfügung und muss wieder eine Datei erstellen, habe also nur die zwei Variablen - "Filename" und "n", also "Dateiname" fällt ab aber die Datei muss wie vorher erstellt werden.

Ich dachte mit Length(Filename) die Länge des Strings zählen, Zahl 5 Subtrahieren und an dieser Stelle mit StringReplace "n" wieder einsetzen, aber was ist wenn im Filename die Zahl im Klammern 2 oder 3 stellig ist, z.B. Datei(123).txt dann wird nach meiner Logik nur die 3 ersetzt und nicht die 123. Außerdem kann man in der Funktion StringReplace keine Stelle eingeben an welcher ersetzt werden soll.

Weiß also nicht wie ich dieses Problem lösen soll. Wer kann mir bitte helfen?