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

Вниз

Про потоки и выходы из них   Найти похожие ветки 

 
Коля ©   (2002-07-08 00:54) [0]

Помнится на уроках паскаля учитель что GoTo пользоватся плохо, это портит приграмму ну а если использовать эту функцию для выхода из цыкла, то будет еще хуже. Да и exit использовать не велят в цыклах.. Напрашивается вопрос, а как тогда правильно прервать цикл или перепрыгуть его часть???
Вот код:
for i:= 0 to FileListbox1.Items.Count -1 do
begin
if FileListbox1.Selected[i] then
begin
//проверяю, есть ли такой файл в ListBox"e
for ii:= 0 to Listbox1.Items.Count -1 do
begin
if Listbox1.Items[ii] = FileListbox1.Selected[i] then
exit; //вот этот екзит и хочется заменит на что- нибудь другое
Listbox1.Items.Add(FileListbox1.Items[i]);
exit;
end;


Тут MultiSelect = False; поэтому если один выделенный файл будут найдет, необходимо прекратить поток.

А тут дело немного усложняется MultiSelect = True; поэтому если файл найден в ListBox"e то поток не прекращять а переходить к следующему..

for i:= 0 to FileListbox1.Items.Count -1 do
begin
if FileListbox1.Selected[i] then
begin
//проверяю, есть ли такой файл в ListBox"e
for ii:= 0 to Listbox1.Items.Count -1 do
begin
if Listbox1.Items[ii] = FileListbox1.Selected[i] then
goto nem;
Listbox1.Items.Add(FileListbox1.Items[i]);
end;
nem:
end;


Пожалуйста объясните что к чему буду очень благодарен!


 
777 ©   (2002-07-08 01:10) [1]

1) break

2)
...
var Found:boolean;
...
found:=false;
for ii:= 0 to Listbox1.Items.Count -1 do
begin
if (Listbox1.Items[ii] <> FileListbox1.Selected[i])and(found=false)then Listbox1.Items.Add(FileListbox1.Items[i])else
found:=true;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
3-57984
ivts
2002-06-26 20:02
2002.07.18
TQuery


1-58166
Донской
2002-07-05 17:57
2002.07.18
Откомпилированный проект 5 Мб


3-57977
bobr12
2002-06-26 15:48
2002.07.18
InterBase - проблема с русскими шрифтами


14-58326
любитель
2002-06-18 16:38
2002.07.18
Предлагаю на этих выходных Питерцам собраться 21-23 июня.


1-58095
Nefrit
2002-07-08 15:41
2002.07.18
Помогите...