Пример цикла

← →
DREMcas_x (2003-04-30 13:53) [0]

подскажите пожайлуста как сделать цикл ( я только начал изучать delphi ) то есть например у меня в программе чтобы не крутить таймер есть мысль запихать всё в цикл !

например :

try
if listbox2.Items.Text = "" then begin
filecopy_2.Enabled:=false;
end
else begin
listbox2.ItemIndex:=0;
WindowsCopyFile(listbox1.Items.Strings[listbox1.itemindex-1], path_f);
listbox2.DeleteSelected;
end;

if listbox2.Items.Text <> "" then // чтобы перепрыгивал на начало процедуры и копировал заново пока есть записи в listbox

← →
KSergey © (2003-04-30 14:07) [1]

Лучше напиши что хочется получить.
А то с трудом понятно.

Почему везде было listbox2, а в этом фрагменте - 1?!!! Очепятка?

WindowsCopyFile(listbox 1.Items.Strings[listbox1.itemindex-1], path_f);

Подозреваю, надо что-то такое:

var i: integer; begin for i := 0 to ListBox2.Items.Count - 1 do WindowsCopyFile(ListBox2.Items[i], path_f); end;

И еще. Обязательно читать книжки!

← →
DREMcas_x (2003-04-30 14:10) [2]

я хочю получить копирование файлов ! пути к которым есть в списке listbox! а на счёт listbox1 это ошибка ! везде listbox2

← →
sashas © (2003-04-30 14:15) [3]

Читать книжки и ходить на форумы. А еще больше гулять:)( прогоаммеру нужен крепкий компьютер и нервы).
Что же насчет вопроса, то цикл используй как и для DOS"а (если приперло) но вставь строку
ProcessMessages;
тогда даже если цикл будет долго работать Windows сможет кое что делать для себя и не будет "зависать". (Ты просто быдешь обрабатывать все поступившие задания - всего одной строчкой).

← →
DREMcas_x (2003-04-30 14:19) [4]

> sashas

пример можно ? я ведь именно его прошу с начала :)

Рискну предположить, что sashas имеет в виду добавить такую вещь:

var i: integer; begin for i := 0 to ListBox2.Items.Count - 1 do begin WindowsCopyFile(ListBox2.Items[i], path_f); Application.ProcessMessages; end; end;

Хотя, между нами говоря, это, возможно, и не понадобится - все, действительно, зависит от времени копирования. Опять же здесь если 1 файл будет копироваться достаточно долго - то приложение (не виндовс!) будет как бы зависать (вернее его окна не будут перерисовавыться, да и винда посчитает его зависшим), при этом собственно копирование будет идти исправно.
Только не спрашивай как сделать чтобы все вообще было коасиво, т.к.
а) это относительно сложно пока для тебя
б) сейчас тебе это точно не надо (поверь)

← →
DREMcas_x (2003-04-30 15:09) [6]

Спосибо ! как раз то что я искал

Пример цикла Найти похожие ветки