Главная страница
    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.009 c
1-59197
siliks330
2002-11-09 09:27
2002.11.18
Как сделать текст.редактор, для работы с очень большими текстами?


14-59426
lipskiy
2002-10-17 20:58
2002.11.18
Как в XP запаролить конкретный ресурс (папку)?


1-59230
diww
2002-11-06 16:33
2002.11.18
как определить сетевое имя диска


3-59016
Youri
2002-10-29 12:53
2002.11.18
Тормозит прога!!!


14-59416
gek
2002-10-23 13:48
2002.11.18
Наш ответ поклонникам C,и иже с ними





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский