| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Help me! Please!
Irish Boy © (2001-12-28 13:42:00)Как программно проверить есть ли одинаковые строки в Listboxe или нету, когда заранее количество строк неизвестно?
RaZEr (2001-12-29 06:51:00) [1]Кошмар какой , такую бадягу развести из-за сравнения листбоксов ! Итак :
Листбоксы Lbox1 , LBox2 .
LBox3 - листбокс в котором одинаковые строки
LBox3 := TListBox.Create;
FOR I:=0 to LBox1.Items.Count-1 DO
FOR J:=0 to LBox2.Items.Count-1 DO
IF LBox1.Items[I] = LBox2.Items[J] THEN
LBox3.Items.Add(LBox1.Items[I]);
В итоге LBox3.Items - это и есть вс одинаковые строки .
MBo (2001-12-28 19:25:00) [2]Sorry в 1)
в обеих строках не просто ListBox1. , а
ListBox1.Items.
MBo (2001-12-28 18:34:00) [3]1) самое простое
s - строка для добавления
if Listbox1.IndexOf(s)<0 then
ListBox1.Add(s);
2)>А ГДЕ ВЗЯТЬ ЭТОТ StringList
если устроит следующая ситуация:
элементы списка добавляются в буферный список (TStringList- наследник TStrings, ListBox.Items тоже),который способен при установке свойства sorted в true обрабатывать повторение элементов, в данном случае просто не внося их в список.
Затем копировать в ListBox (будет отсортирован).
Такой способ иногда полезен.
var sl:tstringlist;
procedure TForm1.FormCreate(Sender: TObject);
begin
sl:=tstringlist.create;
sl.Sorted:=true;
sl.Duplicates:=dupIgnore;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
sl.Add(edit1.text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
listbox1.items.assign(sl);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
sl.free;
end;
panov (2001-12-28 15:24:00) [4]Sorts the strings in the list in ascending order.
procedure Sort; virtual;
Description
Call Sort to sort the strings in a list that has the Sorted property set to False. String lists with the Sorted property set to True are automatically sorted.
Note: Sort uses AnsiCompareStr to sort the strings. This sort order takes into account the locale of the system on which the application is running. To provide your own comparison operator instead, use the CustomSort method.
Builder (2001-12-28 15:09:00) [5]Стандартно это делается так - сортируется список строк Sorted = true), а потом проверяется, не совпадают ли две соседние строки.
Недокументированная фича - получится отсортированный список :)
Irish Boy (2001-12-28 14:56:00) [6]А ГДЕ ВЗЯТЬ ЭТОТ StringList?
panov (2001-12-28 14:35:00) [7]А вот и пример:-)
-----------------
var
tL: TStringList;
begin
tL := TStringList.Create;
try
tL.Sort;
tL.Duplicates := dupError;
try
tL.Assign(ListBox.Items);
except
ShowMessage("Одинаковые записи!");
end;
finally
tL.Free;
end;
end;
Romkin (2001-12-28 14:27:00) [8]Items.IndexOf("AAA") > 0 - уже есть, это при добавлении,
а если уже есть - перекинуть Items в StringList (StringList1.Assign, например), а там есть sort & Duplicates
Voron (2001-12-28 14:23:00) [9]Пока читал и писал свой ответ Miwa © и Polevi © вперед успели :)
2Miwa © ListBox1.Items.Count!!!
Voron (2001-12-28 14:19:00) [10]А если список уже сформирован, и надо проверить в какой-то конкретный момент то:
цикл по всем строкам, в нем
еще цикл по всем строкам, в нем
сравниваем строки, если они не одна и таже.
Miwa (2001-12-28 14:13:00) [11]
for i:=0 to ListBox1.ItemIndex
for j:=i to ListBox1.ItemIndex
if ListBox1.Items[i]=ListBox1.Items[j] then ...
По-моему так...
gek (2001-12-28 13:44:00) [12]проверять при каждом добавлении в список
| |
