Re: Delphi duplicate file with slight change in the document name
Posted by webmaster Guido on May 01, 2001 at 23:53:47:
In Reply to: Delphi duplicate file with slight change in the document posted by Peter Cook on May 01, 2001 at 18:32:25:
: How would one go about creating a cook.txt in the folder c:\PETER, and then duplicating this very same document 10 times but with a slight change in the name of the document (otherwise it would obviously be overwriting the cook.txt 10 times). For example, c:\PETER\cook.txt would be created, then perhaps c:\PETER\cook1.txt, then cook2.txt and so fourth. I was thinking some kind of a loop, but I can't figure out the correct syntax.
Have a look at the procedure below, with as its parameters:
procedure MultiNameSave(TheText, Dir, BaseName: string; Times: integer); var i: integer; TheFileName: string; begin for i := 1 to Times do begin TheFileName := Dir + BaseName + IntToStr(i) + '.txt'; // Any code of your choice that saves TheText under the name TheFileName: // ... // ... end; end;