With ADOQuery_Select do
begin
Close;
SQL.Clear;
SQL.Add('Select * From Pms Where RoomNo = :P_RoomNo ');
Parameters.ParamByName('P_RoomNo').Value := Room;
Open;
if ADOQuery_Select.Eof = False then
Close;
end;
ADOQuery_Select.Eof 가 False 일때는.. Close 에서 에러가 발생하지 않고
ADOQuery_Select.Eof 가 True 일때.. Close 에서 에러가 발생합니다.
왜 그런가요.
ADO패치가 배포되어 있으니 패치하시면 제대로 돌아갑니다.