procedure TForm1.Button1Click(Sender: TObject);
var
i: word;
begin
i := 0;
while i <> ListBox1.Items.Count do
if ListBox2.Items.IndexOf(ListBox1.Items) <> -1 then
ListBox1.Items.Delete(i)
else
inc(i);
if ListBox1.Items.Count <> 0 then
for i := 0 to ListBox1.Items.Count-1 do
ListBox2.Items.Add(ListBox1.Items);
end;
Сравнение строк в ListBox и сравнение двух Listbox
Мне нужно убрать одинаковые строки в одном ListBox и сравнить его со втрорым Listbox. При этом из первого убрать строки совпадающие по значению со вторым и в конце всего этого добавить во второй ListBox строки из первого.(это все нужно мне для сбора ссылок со своего сайта, потом из ссылок будет составлена карта сайта). Заранее спасибо!
Цитата:
Originally posted by vitaslab
Мне нужно убрать одинаковые строки в одном ListBox и сравнить его со втрорым Listbox. При этом из первого убрать строки совпадающие по значению со вторым и в конце всего этого добавить во второй ListBox строки из первого.(это все нужно мне для сбора ссылок со своего сайта, потом из ссылок будет составлена карта сайта). Заранее спасибо!
Мне нужно убрать одинаковые строки в одном ListBox и сравнить его со втрорым Listbox. При этом из первого убрать строки совпадающие по значению со вторым и в конце всего этого добавить во второй ListBox строки из первого.(это все нужно мне для сбора ссылок со своего сайта, потом из ссылок будет составлена карта сайта). Заранее спасибо!
[COLOR=blue]
Код:
[/COLOR]
А еще проверка на одинаковые строки в первом листбоксе [COLOR=red]перед[/COLOR] тестом на идентичность со вторым листбоксом...
Код:
procedure TForm1.Test;
var
i,j: Word;
begin
for i := 0 to ListBox1.Items.Count-2 do
begin
j := i+1;
while j <= ListBox1.Items.Count-1 do
if ListBox1.Items = ListBox1.Items[j] then
ListBox1.Items.Delete(j)
else
inc(j);
end;
end;
var
i,j: Word;
begin
for i := 0 to ListBox1.Items.Count-2 do
begin
j := i+1;
while j <= ListBox1.Items.Count-1 do
if ListBox1.Items = ListBox1.Items[j] then
ListBox1.Items.Delete(j)
else
inc(j);
end;
end;
Спасибо, попробую.
Цитата:
Originally posted by vitaslab
Спасибо, попробую.
Спасибо, попробую.
пжалста :)
и еще: мне из первого ListBox нужно убрать лишние ссылки: java..., mailt...., и убрать ссылки, содержащие значек #(место в документе).
Как подавить все выпадающие окошки из TWebBrowser'a на сохранение файла и ошибка на странице?(т. к. проходя по некоторым ссылкам выпадают данные сообщения)
Как подавить все выпадающие окошки из TWebBrowser'a на сохранение файла и ошибка на странице?(т. к. проходя по некоторым ссылкам выпадают данные сообщения)