Главная страница
    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
15-1146566297
DelphiN!
2006-05-02 14:38
2006.05.28
Как сделатиь перехватчик фатальных ошибок в программе


8-1135613309
Mulka
2005-12-26 19:08
2006.05.28
Векторная графика


3-1144317778
arhis
2006-04-06 14:02
2006.05.28
Запсиь результатов на лиск в BDE


8-1135761924
race1
2005-12-28 12:25
2006.05.28
DirectX sound


15-1146758477
Empleado
2006-05-04 20:01
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский