Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Вниз

Acces violation в условии цикла repeat - until 


EsKor   (2002-03-04 10:42) [0]

Может ли кто-нибудь подсказать почему при реализации кода указанного ниже возникает сообщение:
Access violation at address 0049D053 in module "EXPERTACT.EXE". Read of address FFFFFFFF.

procedure ...
var
Response : String;
...
repeat
Response := Receiving(hCOMPort); //Принять ответ
if Response <> "" then
if Response[1] = "S" then //Если в ответе 1-й символ S, то
begin //связь с весами установлена
TimerWaitResponse.Enabled := false; //остан.таймер ожид.соедин
imgConnect.Visible := true; //отобразить соединение
Sending(hCOMport, "D HELLO"); //вывести на дисплей "HELLO"
TimerAfterHello.Interval := 1500; //установить время таймера
TimerAfterHello.Enabled := true; //запуст.таймер сброса весов
end;
Application.ProcessMessages;
until EndOfWaitResponse or (Response[1] = "S");
...
end; {procedure}
EndOfWaitResponse глобальная переменная типа boolean.

Такое сообщение стало появляться после добавления в условие прекращение цикла or (Response[1] = "S"). Причем код из цикла можно вообще убрать (сделать пустой цикл), но ошибка не устраняется. Можно, конечно, обойтись без этой второй части условия, но, сами понимаете, и при такой реализации ошибки быть не должно.



Sasha9   (2002-03-04 10:48) [1]

а что за функции такие Receiving и Sending



Alx2   (2002-03-04 10:53) [2]

Пусть Response="", а в until проверяем Response[1]?



EsKor   (2002-03-04 10:55) [3]

Функции Receiving и Sending - это собственноручно написанные: первая - прием данных от внешнего устройства, вторая - передача ему необходимых команд. Но, как я уже указал, что если даже цикл будет пустой, то ошибка все равно появляется.



Aleksandr   (2002-03-04 10:55) [4]

При обращении к первому символу в строке нулевой длины возникает ошибка доступа к памяти - ее там нет...



Shaman_Naydak   (2002-03-04 11:02) [5]

Ошибка возникает в случае Resonse = ""
Тогда условие в Until Response[1] = "S" абсолютно некорректно.
Методы лечения:
1. Убить эту херню из until"a, а if на Response[1] = "S" закончить break;

2. until EndOfWaitResponse or
((Response <> "") and (Response[1] = "S"));



EsKor   (2002-03-04 11:04) [6]

Всем спасибо! Попался на невнимательности, можно сказать даже на глупости. Действительно в общем случае, при первом обращении, с весов ничего не приходит и строка пустая, тем более, что ранее в коде она пустотой и инициализируется... И посему получил пыльным мешком по голове :o).




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.014 c
6-57469           Ghost.                2001-12-29 09:09  2002.03.18  
Сервер SOCKS4/5


1-57457           Man-In-Red            2002-03-03 03:04  2002.03.18  
Как в своей программе использовать свои курсоры? Посмотрите, пожалуйста, что тут не так?


3-57287           Dimedrol              2002-02-18 15:33  2002.03.18  
UDF и Interbase


1-57380           РЛ                    2002-03-01 09:45  2002.03.18  
Запускаю в режиме отладки, и появляется CPU c какими-то контрольными точками, которые я не проставлял


3-57337           draculenok            2002-02-19 09:12  2002.03.18  
Вопрос по запросам