Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Вниз

Help me! Please! 


Irish Boy   (2001-12-28 13:42) [0]

Как программно проверить есть ли одинаковые строки в Listboxe или нету, когда заранее количество строк неизвестно?



gek   (2001-12-28 13:44) [1]

проверять при каждом добавлении в список



Miwa   (2001-12-28 14:13) [2]


for i:=0 to ListBox1.ItemIndex
for j:=i to ListBox1.ItemIndex
if ListBox1.Items[i]=ListBox1.Items[j] then ...

По-моему так...



Voron   (2001-12-28 14:19) [3]

А если список уже сформирован, и надо проверить в какой-то конкретный момент то:
цикл по всем строкам, в нем
еще цикл по всем строкам, в нем
сравниваем строки, если они не одна и таже.



Voron   (2001-12-28 14:23) [4]

Пока читал и писал свой ответ Miwa © и Polevi © вперед успели :)
2Miwa © ListBox1.Items.Count!!!



Romkin   (2001-12-28 14:27) [5]

Items.IndexOf("AAA") > 0 - уже есть, это при добавлении,
а если уже есть - перекинуть Items в StringList (StringList1.Assign, например), а там есть sort & Duplicates



panov   (2001-12-28 14:35) [6]

А вот и пример:-)
-----------------
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;



Irish Boy   (2001-12-28 14:56) [7]

А ГДЕ ВЗЯТЬ ЭТОТ StringList?



Builder   (2001-12-28 15:09) [8]

Стандартно это делается так - сортируется список строк Sorted = true), а потом проверяется, не совпадают ли две соседние строки.

Недокументированная фича - получится отсортированный список :)



panov   (2001-12-28 15:24) [9]

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.



MBo   (2001-12-28 18:34) [10]

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;






MBo   (2001-12-28 19:25) [11]

Sorry в 1)
в обеих строках не просто ListBox1. , а
ListBox1.Items.



RaZEr   (2001-12-29 06:51) [12]

Кошмар какой , такую бадягу развести из-за сравнения листбоксов ! Итак :

Листбоксы 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 - это и есть вс одинаковые строки .




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.026 c
3-52462           Knyaz17               2001-12-14 10:04  2002.01.17  
Как использовать отладчик ХП?


1-52583           Cyber                 2001-12-25 21:44  2002.01.17  
Люди, профы, помогите. Help me!


6-52631           kostya                2001-10-22 13:31  2002.01.17  
Поиск MSSQL в локальной сети.


3-52479           Дремучий              2001-12-14 18:48  2002.01.17  
...many locked records!!!


3-52494           Alex22                2001-12-15 11:12  2002.01.17  
BDE