Главная страница
    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.009 c
8-1134291419
race1
2005-12-11 11:56
2006.05.28
Midi to wav


15-1146575726
asdqwer
2006-05-02 17:15
2006.05.28
Интернет в России и на Украине


2-1147263371
VOIDER
2006-05-10 16:16
2006.05.28
выити из сервиса


2-1147508866
_duk
2006-05-13 12:27
2006.05.28
DBGrid


15-1146660335
RomanH
2006-05-03 16:45
2006.05.28
Экспорт данных из SQL Explorer





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