화일 정보 가져 올때, 에러가 납니다.
item에 값을 넣을때 발생 되는것 같은데 ,어떻게 처리 해야 하는지요?
fullFilePath := FileSearch(adoQry.Fields[0].AsString+'.cut', dir1);
if fullFilePath = ''
then
tmp.caption:=(adoQry.Fields[0].AsString+'.cut'+' not found')//화일이 없을때
else
tmp.caption:=(adoQry.Fields[0].AsString+'.cut');
tmp.SubItems.add(fullfilepath);
tmp.SubItems.add(DateTimeTostr(FileDateToDateTime(FileAge(fullFilePath))));
adoQry.Next;
if fullFilePath = '' then
tmp.caption:=(adoQry.Fields[0].AsString+'.cut'+' not found')//화일이 없을때
else begin
tmp.caption:=(adoQry.Fields[0].AsString+'.cut');
tmp.SubItems.add(fullfilepath);
tmp.SubItems.add(DateTimeTostr(FileDateToDateTime(FileAge(fullFilePath))));
adoQry.Next;
end;
<!--CodeE-->
먼저 else 블록이 한줄만 설정되어서 fullFilePath에 값이 있던 없던 tmp.SubItems.add가 실행되는 걸로 보이는데요.