Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];

Вниз

тайна покрытая мраком   Найти похожие ветки 

 
Ghost!   (2002-11-06 16:20) [0]

Уже третий день мучусь, не могу понять, почему этот код вызывает access violation:

SetLength(massiv, a+1);
b:=0;
Repeat
Inc(b);
massiv[b]:=Random(c);
Until b=d;
massiv[b+1]:=0;


 
Skier   (2002-11-06 16:22) [1]

>Ghost!
1) Что есть massiv (array of integer) ?
2) Что есть d ?


 
NP-237   (2002-11-06 16:23) [2]

d>a


 
LongIsland   (2002-11-06 16:29) [3]

SetLength(massiv, b+1);
b:=0;
Repeat
Inc(b);
massiv[b]:=Random(c);
Until b=d;
massiv[b+1]:=0

или

SetLength(massiv, a+1);
b:=0;
Repeat
Inc(b);
massiv[b]:=Random(c);
Until b=a;
massiv[b+1]:=0

кажись так...


 
KoluChi   (2002-11-06 16:29) [4]

access violation однозначно из-за обращения к несуществующему индексу в массиве


 
LongIsland   (2002-11-06 16:30) [5]

нет не так

massiv[b+1]:=0
вообще выкинуть


 
Skier   (2002-11-06 16:30) [6]

>Ghost!
Skier © (06.11.02 16:22) +
3) Что есть a ?


 
Ghost!   (2002-11-06 16:39) [7]

Да, код действительно был выдернут из контекста и был не совсем понятным, прошу прощения. Но теперь всё работает: просто первую строчку я изменил на
SetLength(errornow, errorcount+2);
Спасибо


 
AlexT1000   (2002-11-06 17:16) [8]

для справки . динамические массивы индексируются с нуля , а не с одного как у тебя.

второе

лучше делать так
for i:=0 to High(Massiv) do .......



Страницы: 1 вся ветка

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

Наверх




Память: 0.45 MB
Время: 0.007 c
3-59004
Sers
2002-10-29 10:45
2002.11.18
Создать базу данных


6-59322
AlexBeliy
2002-09-04 15:41
2002.11.18
Есть ли машина в сети


3-59070
dias
2002-10-30 16:38
2002.11.18
Мастера подскажите как передать параметр в SP


14-59352
iNew
2002-10-29 07:41
2002.11.18
Есть ли книга Рихтера в электоронном виде?


1-59211
MsGuns
2002-11-06 11:51
2002.11.18
2 экземпляра TIniFile





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский