Как сделать что бы было разширение (.txt) и если файл есть то создавать новый.
Цитата:
longExt := Length( Format( '%d', [fCount] ) );
if OutPath[Length( OutPath )] <> '\' then
OutPath := OutPath + '\';
outFileName := OutPath + ExtractFileName( inFile ) + '.f%.' + IntToStr( longExt ) + 'd';
|