FindFirst함수를 사용해도 쉽게 해결됩니다.
헤더파일 추가없어도 되구요..
(예제)
TStringList* List = new TStringList;
AnsiString FileName=ExtractFilePath(Application->ExeName)+"player.txt";
bool Result = false;
TSearchRec sr;
if(FindFirst(FileName, faArchive, sr) == 0) //파일이 존재하면
{
if(sr.Size == 1024) //파일의 크기가 1024byte 일 때만 처리
{
Result = true;
}
else
{
MessageDlg(FileName+" 의 크기가 다릅니다.", mtError, TMsgDlgButtons() << mbOK, 0);
}
FindClose(sr);
}
else
{
MessageDlg(FileName+" 이 존재하지 않습니다.", mtError, TMsgDlgButtons() << mbOK, 0);
}
if(Result) //파일이 존재하고 크기가 같으면 읽어 옴
{
List->LoadFromFile(FileName);
}
else //아니면 프로그램 종료
{
Application->Terminate();
return;
}
//----------------------------------------
// ┏┓
// ┣┻┓┏ ┃┃ 작은 생각이 세상을 바꾼다
// ┃♡┃┣ ┣┫┏┓
// ┗━┛┗ ┃┃┣┫┏┓┏┓ - 정성훈.해미
// ━━━━━━━━━┣┛┣┛┗┫━━━━━━
// Web Site:
http://www.hemistory.net
// e-mail: sage5nor@chol.com
//----------------------------------------
화려한미소 님이 쓰신 글 :
: List = new TStringList;
: String FileName=ExtractFilePath(Application->ExeName)+"player.txt";
: if(!FileExists(FileName)){
: ShowMessage(FileName+" 이 존재 하지 않습니다");
: Application->Terminate();
: return;
: }
: List->LoadFromFile(FileName);
:
: 이런식으로 txt파일을 Tstringlist를 이용해서 쓰고 있습니다.
: 근데 저기서 player.txt 파일을 누가 수정을 해서 쓰지못하게 하기 위해
: 파일 크기를 가져와서 대조해오는 부분을 추가하려고 하는데
: 어떤식으로 해야하는지 잘 몰라서요
: 검색을 해보긴 했으나
: 적절한 검색단어를 못쳤는지 제가 원하는 답을
: 얻기가 힘드네요
: 도움주시면 감사하겠습니다.