Функция для удаления из Listbox2 строк которые есть в Listbox1

← →
Ghost © (2003-06-13 08:48) [0]

Срочно нужно сделать функцию для удаления строк которые указанны в Listbox1 из Listbox2 . Вот я тут немного подумал и написал следующее :

************* удалить из listbox2 строки которые есть в Listbox1 ********88

var
s:string;
i,i2:integer;

----------------------------------------

// запуск ->

if (listbox1.Items.Text <> "") and (listbox2.Items.Text <> "") then begin
listbox2.ItemIndex:=0; Timer1.Enabled:=true; end else panel1.Caption:="Типа всё ок";

-------------------------------------------
// сам процес , timer , интервал 65 сот сек

if (listbox1.Items.Text <> "") and (listbox1.Items.Text <> "") then begin
listbox1.ItemIndex:=0; s:=listbox1.Items.Strings[0];
for i := 0 to ListBox2.Items.Count - 1 do
// ------------------------------------------
if listbox2.Itemindex = -1 then exit;
if listbox2.Items.Strings[listbox2.Itemindex] = s then begin
listbox2.DeleteSelected;
listbox1.Items.Delete(0);
end;
if listbox2.ItemIndex = i-1 then begin
if listbox1.Items.Count = -1 then begin
timer1.Enabled:=false; panel1.Caption:="Типа всё ок";
end else begin
listbox1.Items.Delete(0);
listbox2.ItemIndex:=0;
end; end else listbox2.ItemIndex:=listbox2.ItemIndex+1; end else panel1.Caption:="Типа всё ок";

***************************************

( ком )

В panel1 отображаються данные о успешном завершении работы
--------------------------------------------------------

Одна проблема ! так как это реализованно с помощью таймера то
всё это дело длиться долго ( 4-6 сек ) Мне нужно чтобы работало
за 1-2 сек минимум ! если можно быстрее
Может кто нибудь предложит что нибудь по этому поводу ?

← →
dataMaster © (2003-06-13 09:17) [1]

var
k:integer;
begin
for k:=ListBox2.Count-1 downto 0 do
if ListBox1.Items.IndexOf(ListBox2.Items[k])>-1 then
ListBox2.Items.Delete(k);
end;

> dataMaster

Большое спасибо ! :) я всё ещё пытаюсь изобретать колесо заново и мыслить у меня по моему не очень получаеться ! что-ж, будем учиться ! спасибо ещё раз

Функция для удаления из Listbox2 строк которые есть в Listbox1 Найти похожие ветки