function RenameFile(const OldName, NewName: string): Boolean;

Description

RenameFile attempts to change the name of the file specified by OldFile to NewFile. If the operation succeeds, RenameFile returns True. If it cannot rename the file (for example, if a file called NewName already exists), it returns False.

뭐 방법이야 여러가지 있겠지만 재귀호출을 이용한 방법입니다.

참고하세요.

//PreFix는 최초 시작 숫자
//FileName는 생성시키려는 파일명의 변경괴는 숫자부분을 제외한 파일명
function TForm1.MakeFileName(PreFix: integer; FileName: string): string;
begin
  if FileExists(ExtractFilePath(FileName) + IntToStr(PreFix) + ExtractFileName(FileName)) then begin
    //해당 폴더에 파일 존재시 재귀함수 호출
    Inc(PreFix);
    Result := MakeFileName(PreFix, FileName);
  end
  else
    Result := ExtractFilePath(FileName) + IntToStr(PreFix) + ExtractFileName(FileName);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  filename: string;
begin
  //테스트 코딩
  //폴더에 순서대로 파일을 만듬.
  filename := MakeFileName(1,'d:Work' + 'A' + FormatDateTime('mmdd',now) + '.txt');
  if not FileExists(filename) then
    FileCreate(filename);
end;

저겨... 좀더 구체적으로 말씀해 주시면 안되염??
이해가 안되염.. ㅜ.ㅡ
   xsfname := 'C:신고납 프로젝트BarReaderTXTDATA' + '1A' + copy(formatdatetime('yyyymmdd', DateTimePicker1.datetime),5,2) + copy(formatdatetime('yyyymmdd', DateTimePicker1.datetime),7,2)+ '.txt';
위에 제가 적은것이 파일명을 (날짜로) 임의로 부여 한 값이거든여..
'1A' 이값을 강제로 임의로 줬었는데...
어케 해야 할지..

이런 식으로 제가 만들어 드린 함수를 태우시면 자동으로 변경되는 파일 이름을 얻으실 수 있습니다.

xsfname := MakeFileName(1,'C:신고납 프로젝트BarReaderTXTDATA' + 'A' + FormatDateTime('mmdd',now) + '.txt');

구체적으로 설명하기 힘드네요..

실제 함수 구현은 도움말 같은걸 찾아보시죠.

아래와 같이 했는데...  I/O error 32 에러가 나염..

procedure TfrmMnuA1.BtnsaveClick(Sender: TObject);
var
xtout : textfile;
xsfname,xsline,xstmp : string;
i,j : integer;
pl : string;
begin

qryData.close;
qryData.open;

  if qryData.Active = false then
     begin
     Application.MessageBox('저장할 내용이 없습니다.','경고',MB_OK);
     exit;
     end;
  qryData.First;
  if qryData.EOF = true then
     begin
     Application.MessageBox('저장할 내용이 없습니다.','경고',MB_OK);
     exit;
     end;

// for (p2 = 1; p2 > p1; p2++) do

//if FileExists(pl + 'A' + copy(formatdatetime('yyyymmdd', DateTimePicker1.datetime),5,2) + copy(formatdatetime('yyyymmdd', DateTimePicker1.datetime),7,2)+ '.txt') then
//begin
//   filename := MakeFileName(1,'d:Work' + 'A' + FormatDateTime('mmdd',now) + '.txt');
//  if not FileExists(filename) then
//    FileCreate(filename);

    xsfname := MakeFileName(1,'C:신고납 프로젝트BarReaderTXTDATA' + 'A' + copy(formatdatetime('yyyymmdd', DateTimePicker1.datetime),5,2) + copy(formatdatetime('yyyymmdd', DateTimePicker1.datetime),7,2)+ '.txt');
   if not FileExists(xsfname) then
    FileCreate(xsfname);

     try
     AssignFile(xtout, xsfname );
     Rewrite(xtout);
     xsline := '';
     if comparestr(copy(xsfname,length(xsfname)-2,3),'TXT') = 0 then
       while qryData.EOF = false do
       begin
         for i:=0 to qryData.FieldCount - 1 do
           begin
             if i <> qryData.FieldCount - 1 then
               xsline := xsline + qryData.Fields[i].AsString + ','
             else
               xsline := xsline + qryData.Fields[i].AsString
           end;
         writeln(xtout,xsline);
         qryData.Next;
       end
     else
       while qryData.EOF = false do
       begin
         for i:=0 to qryData.FieldCount - 1 do
           begin
               xsTmp := qryData.Fields[i].AsString;
               j := qryData.Fields[i].Size;
               xsTmp := MakeTxtDB(xsTmp,j);
               xsline := xsline + xstmp;
           end;
         writeln(xtout,xsline);
         qryData.Next;
       end;

     CloseFile(xtout);

     except
     begin
       MessageDlg('파일 생성에 실패하였습니다.',mtError, [mbOk],0);
       Exit;
     end;
    end;
    MessageDlg('저장이 성공적으로 이루어졌습니다..  '#13#13+
                  '파일['+xsfname+']을 생성 하였습니다.',mtInformation, [mbOk],0);

    with DELQRY do
    begin
    sql.clear;
    sql.add(' delete from jumin.db           ');
    sql.add('  where NAPYMD = :pNAPYMD      ');
    parambyname('pNAPYMD').asstring := formatdatetime('yyyymmdd', DateTimePicker1.datetime);
    ExecSQL;
    end;
    user_clear;

end;


//PreFix는 최초 시작 숫자
//FileName는 생성시키려는 파일명의 변경괴는 숫자부분을 제외한 파일명
function TfrmMnuA1.MakeFileName(PreFix: integer; xsfname: string): string;   //PreFix
begin
  if FileExists(ExtractFilePath(xsfname) + IntToStr(PreFix) + ExtractFileName(xsfname)) then begin
    //해당 폴더에 파일 존재시 재귀함수 호출
    Inc(PreFix);
    Result := MakeFileName(PreFix, xsfname);
  end
  else
    Result := ExtractFilePath(xsfname) + IntToStr(PreFix) + ExtractFileName(xsfname);
end;

loop 를 돌리셔서

파일명을 먼저 변수로 처리하여 파일이 있는지 없는지를 먼저 비교합니다.

없으면 저장하면되죠.