Teilstring ersetzen?

[matze99]

Du könntest mit dieser Funktion den Dateinamen vor den Klammern auslesen.

Delphi-Quellcode:

function GetFileName(Source: String): String;
var i: integer;
begin
  for i := Length(Source) downto 1 do
  begin
    if Source[i] = '('
    then
    begin
      result := LeftStr(Source, i-1);
      break;
    end;
  end;
end;

Und dann gehst du einfach wie am Anfang vor.

Delphi-Quellcode:

Dateiname := GetFileName(FileName);
Inc(n);
Filename := Dateiname + '(' + IntToStr(n) + ')' + '.txt';