Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.05;
Скачать: CL | DM;

Вниз

loop   Найти похожие ветки 

 
noob ©   (2004-11-19 02:22) [0]

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


 
Тестировщица ©   (2004-11-19 02:40) [1]

var Massiv:array[начюиндекс..кон.индекс] of что-то;

....

var i:integer;
for i:=Low(Massiv) to High(Massiv) do
begin
// что-то делаем с Massiv[i]
end;


 
noob ©   (2004-11-19 02:54) [2]

нет я имелл введу чуть не то .. вот например массив от 1 до 100 елементов ... а заполнено всего а зополнено всего 85 так мне нужно чтоб цыкл выполнился не 100 раз а 85


 
SergP ©   (2004-11-19 03:22) [3]


>  [2] noob ©   (19.11.04 02:54)


Расшифруй сначала что ты понимаешь под словом "зополнено".
массив есть массив. Если было объявлено (либо установлено) что там 100 элементов, то значит их там 100 и есть и все они существуют.


 
Тестировщица ©   (2004-11-19 03:40) [4]

В принципе, если массив заполняется подряд, начиная с первого элемента, и все элементы массива предварительно проинициализированы каким-то значением, означающим "не заполнено", то можно сделать примерно так:
i:=Low(Massiv);
while Massiv[i]<> "не заполнено" do
begin
// что-то делаем
inc(i); //i:=i+1
end;


 
Тестировщица ©   (2004-11-19 03:44) [5]

Поправка:
i:=Low(Massiv);
while (i<=High(Massiv))and(Massiv[i]<> "не заполнено") do
begin
// что-то делаем
inc(i); //i:=i+1
end;


 
***SPIDER***   (2004-11-19 08:27) [6]

Можно запоминать количество заполненных элементов, например в нулевом элементе MASSIV[0].


 
Anatoly Podgoretsky ©   (2004-11-19 08:41) [7]

noob ©   (19.11.04 02:54) [2]
for i:=1 to 85 do


 
КаПиБаРа ©   (2004-11-19 08:43) [8]

Храни количество заполненных элементов в отдельной переменной


 
Fay ©   (2004-11-19 08:44) [9]

2 Anatoly Podgoretsky ©   (19.11.04 08:41) [7]
8)



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

Текущий архив: 2004.12.05;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.026 c
8-1094201150
1
2004-09-03 12:45
2004.12.05
Как сделать линии/прямые сглаженными ?


14-1099338839
Piter
2004-11-01 22:53
2004.12.05
Составление нового FAQ для этого сайта


1-1100673760
MikePol
2004-11-17 09:42
2004.12.05
AddXY и TChart


1-1101136171
MasterVovan
2004-11-22 18:09
2004.12.05
События и DLL


1-1100677690
Dmitrij_K
2004-11-17 10:48
2004.12.05
Скорость работы программы





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