for i:=0 to ListBox1.Count-1 do
DeleteFile(ListBox.items.strings);
Как удалить список файлов (путей к ним) из ListBoxa?
Доброго времени суток господа программисты!
Подскажите пожалуйста, как правильно удалить все файлы которые находятся в ListBox'е... т.е. в ListBox'е у меня имеется список путей к файлам... например - C:\temp\123.log...
Как мне правильно удалить все файлы с диска, которые моя прога нашла и вывела в ListBox...? Я совсем зеленный в программирование... поймите правильно...
Если вам не трудно, дайте небольшой пример как это реализовать... буду очень благодарен.
Спасибо
Подскажите пожалуйста, как правильно удалить все файлы которые находятся в ListBox'е... т.е. в ListBox'е у меня имеется список путей к файлам... например - C:\temp\123.log...
Как мне правильно удалить все файлы с диска, которые моя прога нашла и вывела в ListBox...? Я совсем зеленный в программирование... поймите правильно...
Если вам не трудно, дайте небольшой пример как это реализовать... буду очень благодарен.
Спасибо
Цитата: ahilles
вот так примерно
Код:
for i:=0 to ListBox1.Count-1 do
DeleteFile(ListBox.items.strings);
DeleteFile(ListBox.items.strings);
Спасибо большое, это то что нужно )
У меня тут есть еще один вопрос... А как можно прикрепить туда ProgressBar, чтоб можно было видеть прогресс удаления...?
Спасибо заранее!
Ну тогда примерно вот так:
;)
Код:
procedure TForm1.Button1Click(Sender: TObject);
var i, count: Integer;
begin
count:=ListBax1.Count;
ProgressBar1.Min:=0;
ProgressBar1.Max:=count - 1;
for i:=0 to count - 1 do
begin
DeleteFile(ListBox1.Items);
ProgressBar1.Position:=i;
Application.ProcessMessages;
end;
end;
var i, count: Integer;
begin
count:=ListBax1.Count;
ProgressBar1.Min:=0;
ProgressBar1.Max:=count - 1;
for i:=0 to count - 1 do
begin
DeleteFile(ListBox1.Items);
ProgressBar1.Position:=i;
Application.ProcessMessages;
end;
end;
;)
Цитата: makbeth
Ну тогда примерно вот так:
;)
Код:
procedure TForm1.Button1Click(Sender: TObject);
var i, count: Integer;
begin
count:=ListBax1.Count;
ProgressBar1.Min:=0;
ProgressBar1.Max:=count - 1;
for i:=0 to count - 1 do
begin
DeleteFile(ListBox1.Items);
ProgressBar1.Position:=i;
Application.ProcessMessages;
end;
end;
var i, count: Integer;
begin
count:=ListBax1.Count;
ProgressBar1.Min:=0;
ProgressBar1.Max:=count - 1;
for i:=0 to count - 1 do
begin
DeleteFile(ListBox1.Items);
ProgressBar1.Position:=i;
Application.ProcessMessages;
end;
end;
;)
Спасибо вам большое makbeth и ahilles за помощь )
Респект вам! )