Das gibt aber eine böse Schleife und die Screenshots sind vermutlich weitestgehend identisch.
Ich habe noch gar nicht verstanden, was gemacht werden soll. Mit den Pfad-Funktionen kannst du die deinen Dateinamen in einem Pfad ändern lassen:
Delphi-Quellcode:
function ChangeFilename(Path: string; NewFilename: string): string;
var
FileExtension: string;
FilePath: string;
begin
FilePath := ExtractFilePath(Path);
FileExtension := ExtractFileExt(Path);
Result := FilePath + NewFilename + FileExtension;
end;
Natürlich geht's auch kürzer und evtl. auch auf ganz anderem Weg:
Delphi-Quellcode:
function ChangeFilename(Path: string; NewFilename: string): string;
begin
Result := ExtractFilePath(Path) + NewFilename + ExtractFileExt(Path);
end;
Sonst schaue dir einfach mal folgende Funktionen an, dann klappt das schon:
ExtractFilename
ExtractFilePath
ExtractFileExt
IncludeTrailingPathDelimiter
evtl. auch
ChangeFileExt
Wobei
ChangeFileExt keine allzu gute Funktion ist bzw. nur bedingt funktioniert.
Grüße, Matze
Edit: Gut, dann hat sich das Thema ja erledigt. Wobei rauchen nicht so sinnvoll ist (ist ein anderes Thema 
). *stolzer Nichtraucher ist*