|
이제 프로그램을 배우는 사람입니다..
void __fastcall TForm1::PCFileListChange(TObject *Sender, TListItem *Item,
TItemChange Change)
{
TFileStream *pfile;
if (PCFileList->Selected) {
AnsiString TheFileName, TheFilePath, FullFileName;
int FileLen;
TheFilePath = PCDirList->Directory;
TheFileName = PCFileList->Selected->Caption;
if (3 == TheFilePath.Length()){
FullFileName = TheFilePath + TheFileName;
}
else {
FullFileName = TheFilePath + "\\" + TheFileName;
}
pfile = new TFileStream(FullFileName, fmOpenRead);
FileLen = pfile->Seek(0,soFromEnd);
delete pfile;
mmFileInfo->Lines->Text = "Path : " + PCDirList->Directory;
mmFileInfo->Lines->Add("Name : " + PCFileList->Selected->Caption);
mmFileInfo->Lines->Add("Size : " + IntToStr(FileLen));
}
}
프로그램을 이런식으로 짜 놓았는데 TFileStream 때문에 에러가 나는거 같거든요,.,
멀쩡히 잘 돌아가고 나서 프로그램을 닫으면
"0x77f83941"에 있는 명령이 "0x00000010"의 메모리를 참조했습니다.
메모리는 "written" 될 수 없었습니다.
이런 오류 메세지가 뜹니다..
고수님들의 많은 애정과 관심 부탁 드립니다...
고맙습니다..
|