감사 합니다

주말 내내 고생해서 만들었습니다..

void __fastcall TForm1::Button1Click(TObject *Sender)
{


AnsiString currpath,Filename,SaveEn,FileSv;
int Enps1,Enps2;
int inFile;
char *pszBuffer="";
int iFileLen;
int count;
int k=0;
int vk=0;
TSearchRec sr;

  Memo1->Clear();
  if(FindFirst("c:\\ex1\\*.txt",faArchive,sr)==0)
  {
    do{
         Memo1->Lines->Add(sr.Name);
         currpath="c:\\ex1\\";
         Filename=currpath+sr.Name;
         inFile=FileOpen(Filename.c_str(),fmOpenReadWrite);
         iFileLen=FileSeek(inFile,0,2);
         FileSeek(inFile,0,0);
         pszBuffer =new char[iFileLen+1];
         FileRead(inFile,pszBuffer,iFileLen);
         SaveEn=pszBuffer;
          for(int i=0;i<iFileLen;i++)
            {

            if(SaveEn.c_str()[i]=='(')
               {

                k++;
               }
            }
           Memo3->Clear();

           for(int n=0; n<k;n++)
            {

                Memo3->Lines->Add(SaveEn.SubString(SaveEn.Pos('('),(SaveEn.Pos(')')-SaveEn.Pos('('))+1));


                 SaveEn=SaveEn.Delete(1,(SaveEn.Pos(')')));

             }


           Filename=currpath+"temp";
           Memo3->Lines->SaveToFile(sr.Name);
           delete[] pszBuffer;
           FileClose(inFile);

        }
      while(FindNext(sr)==0);
  }

  FindClose(sr);
}

참 아직도 해결이 안된것이 있는데..

파일경로명 설정이 잘안되네요... 변환 시키고 난 다음에 저장되는 위치가 프로젝트 생성 했던 위치로 되어 있는데

이걸 어떻게 해결 해야 할지..모르겠습니다...

그럼 수고하세요