Dateinamenerweiterung wenn Datei vorhande

[DelphiManiac]

Hallo,

danke erstmal für eure Antworten.

Ja ich will tatsächlich nicht mit "Speichern unter"-Dialog arbeiten...

Das System erzeugt den Dateinamen und ich will dann meine Überprüfungen / Erweiterungen machen.
Leider kommt ein _0 Erweiterungen auch nicht infrage, da es schon hunderte alter Protokolle gibt ohne _0.

Die Vorgehensweise ist mir klar, könntet ihr mir bei den Mehtoden / Funktionen helfen?

Delphi-Quellcode:

var
  dateiname:string;
begin
dateiname := '11-22-33.pdf';
if FileExist(dateiname) then
begin
// Datei existiert schon aber ohne underscore, wie kann ich das jetzt rausfinden
// ich könnte POS(x,y) nehmen und gucken ob _1 schon im Text vorhanden ist, aber wie der Teufel will,
// existieren vielleicht auch so Dateien "11-22_1-11-22.pdf", also müsste ich prüfen ob die letzen 2 Zeichen
// ein underscore und eine Zahl sind. Gut über length könnte ich ja schoneinmal die Länge abgreifen und dann
// Length -1 müsste dann eine Zahl und Length -2 dann ein underscore sein
// Wie würdet ihr das machen?
...
end;