ReNamer:Scripts:Index filenames
Jump to navigation
Jump to search
Demonstrates how to insert an incrementing number into the filename.
Code 1
Author: Denis Kozlov. Date: 13 February 2007.
Replaces the whole filename with the incrementing number.
<source> var
I: Integer;
begin
I := I + 1; FileName := IntToStr(I);
end. </syntaxhighlight>
Code 2
Author: Denis Kozlov. Date: 8 September 2010.
Append an incrementing number surrounded with brackets to the end of the base name.
<source> var
I: Integer;
begin
I := I + 1;
FileName := WideExtractBaseName(FileName) + ' (' +
IntToStr(I) + ')' + WideExtractFileExt(FileName);
end. </syntaxhighlight>