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

Вниз

Цикл. В чем разница?   Найти похожие ветки 

 
jenya_rus   (2006-05-13 23:49) [0]

пожалуйста разъясните ф чем разница?
until FileListBox1.Items.Count = 0;
until FileListBox1.Items.Count = -1;
until FileListBox1.Items.Count = 1;


 
Мефисто   (2006-05-13 23:56) [1]

Разница в цифрах 0, -1, 1

P.S.
Напрягаю телепатические способности и не могу понять в чем суть вопроса...


 
jenya_rus   (2006-05-14 00:00) [2]

хорошо...подругому =)...
что изменится в цикле если там будет стоять 1, 0, или -1 ???


 
palva ©   (2006-05-14 00:08) [3]

Цикл будет заканчиваться, если Count будет равен 1, 0, или -1


 
jenya_rus   (2006-05-14 00:53) [4]

гы...а в каком случае в файллистбоксе будет значение 0,1 или -1 ??? =\
В чем суть короче: обрабатываются поочереди файлы из файл лист бокса...а переход к следующему файлу не придумал я иначе как программное нажатие клавиши Vk_Down...если кто знает подскажите может можно както без изврата с vk_down =))


 
Шпиён   (2006-05-14 01:03) [5]

что значит - "обрабатываются"?


 
alex-drob ©   (2006-05-14 01:05) [6]


> гы...а в каком случае в файллистбоксе будет значение 0,1
> или -1 ???


0 когда нет записей.
1 когда в listbox есть одна запись.
-1 не бывает (я так думаю). -1 бывает у itemindex - это значит не одна строка не выделенна.


> В чем суть короче: обрабатываются поочереди файлы из файл
> лист бокса...а переход к следующему файлу не придумал я
> иначе как программное нажатие клавиши Vk_Down...если кто
> знает подскажите может можно както без изврата с vk_down
> =))


filelistbox1.ItemIndex:=filelistbox1.ItemIndex+1;


 
Шпиён   (2006-05-14 01:07) [7]


var i:integer;
begin
   for i:=0 to FileListBox1.Items.Count-1 do
// пародия на "обработку"
       Memo1.Lines.Add(FileListBox1.Items[i]);
end;


 
alex-drob ©   (2006-05-14 01:07) [8]

кстати если нужно просто брать путь к файлу то не обязательно переходить в filelistbox к строке с именем файла
filelistbox1.items[ index ] - где index номер строки с 0


 
jenya_rus   (2006-05-14 01:13) [9]

2Шпиён
>>что значит - "обрабатываются"?

Ну короче это сортировщик файлов...

2alex-drob
>>-1 не бывает (я так думаю).
Знаешь фиг его знает по ходу бывает =)))


 
jenya_rus   (2006-05-14 01:15) [10]

2Шпиён
var i:integer;
begin
  for i:=0 to FileListBox1.Items.Count-1 do
// пародия на "обработку"
      Memo1.Lines.Add(FileListBox1.Items[i]);
end;


нет лучше так =)))
var i:integer;
begin
  repeat
// пародия на "обработку"
      until FileListBox1.Items.Count-1 );


 
jenya_rus   (2006-05-14 01:22) [11]

Ребята как мона подсчитать количество файлов в файл лист боксе и экспортировать в Edit или Memo???


 
alex-drob ©   (2006-05-14 01:23) [12]

edit1.text:=inttostr(FileListBox1.Items.Count)


 
jenya_rus   (2006-05-14 01:24) [13]

вери сенкс


 
jenya_rus   (2006-05-14 01:51) [14]

как сбацать until FileListBox1.последний_выделенный_файл ????
чтоб было _до последнего выделенного файла?_


 
Германн ©   (2006-05-14 02:08) [15]


>   for i:=0 to FileListBox1.Items.Count-1 do
> // пародия на "обработку"
>       if FileListBox1.Items.Selected[i] then Memo1.Lines.Add(FileListBox1.Items[i]);



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
4-1141839490
AlexeyT
2006-03-08 20:38
2006.05.28
Работа с NTFS permissions


11-1127135844
=mike=
2005-09-19 17:17
2006.05.28
Не получается скомпилировать проект


10-1119366290
Denis17
2005-06-21 19:04
2006.05.28
События COM-сервера на удаленной машине


2-1147198249
Firefly
2006-05-09 22:10
2006.05.28
TFileStream


15-1146493206
kernel
2006-05-01 18:20
2006.05.28
Игра в городки





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