[Taras2020]

Как сделать что бы было разширение (.txt) и если файл есть то создавать новый.

longExt := Length( Format( '%d', [fCount] ) );
if OutPath[Length( OutPath )] <> '\' then
OutPath := OutPath + '\';
outFileName := OutPath + ExtractFileName( inFile ) + '.f%.' + IntToStr( longExt ) + 'd';

[nixon232]

Код:

inFile :='c:\app\test.txt'; 
if ExtractFileExt(inFile ) = '.txt' then // не помню возвращает 'txt' или '.txt'

////
на cамом деле вопрос не понятен, что вы хотите менять. Если не открытый файл, то провряйте

Код:

if FileExist(inFile ) then
begin
// create other
end

Если открытый, то закрываем и

Код:

RanameFile()
///or
ChangeFileExt()