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

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.041 c
1-1100767604
Floppy
2004-11-18 11:46
2004.12.05
Как программно открыть


3-1099734467
гость
2004-11-06 12:47
2004.12.05
interbase


1-1100630052
Fantasist
2004-11-16 21:34
2004.12.05
Sharemem


4-1098281613
UnDISCOvery
2004-10-20 18:13
2004.12.05
Не могу связать 2 компа через COM-порт. Помогите!


1-1100933147
Rocket
2004-11-20 09:45
2004.12.05
Проблема NUXI (преобразование endian)





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