Показать сообщение отдельно
  #9  
Старый 25.11.2012, 20:47
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Цитата:
Сообщение от Black_Bear
project sort.exe raised exception class EAccessViolation with message 'Accesse
violation at adress 0044EC91 in module "Sort.exe". Read of adress 000002F8' Process stoped. Use Step or Run To continue.


Вот такое уведомление при запуске появляется. Я так понял это ошибка времени выполнения.

Вывод в Memo правильный. Неправильно написана сама сортировка. Нужно так:
Код:
for i:= 0 to N-1 do 
  for j:= i+1 to N do   
    if A[j] < A[i] then 
      begin   
        M:= A[j];   
        A[j]:= A[i];   
        A[i]:= M;  
      end;
Ответить с цитированием