Dateinamenerweiterung wenn Datei vorhande

[DelphiManiac]

Hi,

ich habe es jetzt folgendermaßen gelöst:

Delphi-Quellcode:

    
PfadzurSeriennummer:=IncludeTrailingPathDelimiter(ProgrammIni.ArtikelNrPfad_Rev_2+  txtArtikelnr.Text+'\'+ProgrammIni.ProtokollOrdner ) +PPSSystem.DeviceData.Seriennummer+'.MPD';
i:=1;
while (FileExists(PfadzurSeriennummer)) do
begin
PfadzurSeriennummer:=IncludeTrailingPathDelimiter(ProgrammIni.ArtikelNrPfad_Rev_2+                                                                           txtArtikelnr.Text+'\'+ProgrammIni.ProtokollOrdner )+ PPSSystem.DeviceData.Seriennummer+'_'+IntToStr(I)+'.PDF';
inc(I);
end;

Es ging mir hauptsächlich um die Stringoperationen, aber im Prinzip brauche ich die gar nicht, wenn ich es so mache wie oben.

Danke nochmal, ich denke so ist es sauber umgesetzt.

Gruß
DM