Help!!! listBox найти max кол. повторяющихся элементов

← →
Roman_ln © (2006-12-08 11:30) [0]

Может алгорим какой есть(список сортирован)

← →
Anatoly Podgoretsky © (2006-12-08 11:34) [1]

> Roman_ln (08.12.2006 11:30:00) [0]

А описаного недостаточно, или нужен разжеваные до стадии манной каши?

← →
Roman_ln © (2006-12-08 11:38) [2]

Нет.
Мне нужно определить из всего списка макс. повторяющихся
т.е.
петя
ваня
ваня
ваня
петя
коля

Итог ваня-3 раза
Если делать тупым сравнением и занасить в массив то при большой массиве "тормаз" обеспечен

← →
Elen © (2006-12-08 11:42) [3]

> Roman_ln

Поставь в лист боксе сортировку по алфавиту, потом в одном цикле считай кол--во повторов

← →
Roman_ln © (2006-12-08 11:45) [4]

Elen :
for i:=0 to ListBox2.Count-2 do begin
if ListBox2.Items[i]=ListBox2.Items[i+1] then begin
j:=j+1;
end;
end;
edit2.Text:=IntToStr(j);
как занести в массив элемент и кол. повторений???
вот в чём вопрос:)

← →
Roman_ln © (2006-12-08 11:48) [5]

т.е. если
петя
ваня
ваня
ваня
петя
коля

то итог:
петя - 2
ваня - 3
коля - 1

Elen поможеш с меня шоколадка :0)

← →
Jeer © (2006-12-08 11:52) [6]

> Roman_ln © (08.12.06 11:48) [5]

Замени петь, вась, вань на рубли, доллары, теньга, фунты, флорины (можно золотые), а для получения сделанного для тебя решения - ссыпь в мой карман.

← →
Anatoly Podgoretsky © (2006-12-08 11:52) [7]

> Roman_ln (08.12.2006 11:38:02) [2]

О теперь появилась функция MAX, ну так реализация входит в понятие третьего класса школы.

← →
Anatoly Podgoretsky © (2006-12-08 11:53) [8]

> Roman_ln (08.12.2006 11:45:04) [4]

А массив заносится просто

Ar[Index] := Value;

← →
Roman_ln © (2006-12-08 11:54) [9]

Анатолий чтоб сделать max надо ещё массив создать

← →
Roman_ln © (2006-12-08 11:54) [10]

Анатолий чтоб сделать max надо ещё массив создать

← →
Jeer © (2006-12-08 11:55) [11]

> надо ещё массив создать

Это точно беда.

← →
Elen © (2006-12-08 11:57) [12]

> Elen поможеш с меня шоколадка :0)

Лови горечко :
В одном ЛистБоксе исходные данные, для них выставь Sorted
Dj второй листбокс отбираются все но без повторов

procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin i:=0; //ListBox2.Items.Append(""); while i<ListBox1.Count do begin if (i=ListBox1.Count-1) then ListBox2.Items.Append(ListBox1.Items[i]) else if (ListBox1.Items[i]<>ListBox1.Items[i+1]) then ListBox2.Items.Append(ListBox1.Items[i]); inc(i); end; end;

Пойдет?

← →
Anatoly Podgoretsky © (2006-12-08 12:00) [13]

> Roman_ln (08.12.2006 11:54:09) [9]

Это просто, синтаксис создания массива описан в справке, как для статических, так и динамических массивов. Но я не могу понять как можно программировать без массивов?

← →
Elen © (2006-12-08 12:00) [14]

> Roman_ln

Ой пардон не то кидаю :

procedure TForm1.FormCreate(Sender: TObject); var k,i:integer; begin i:=0; k:=1; //ListBox2.Items.Append(""); while i<ListBox1.Count do begin if (i=ListBox1.Count-1) then ListBox2.Items.Append(ListBox1.Items[i]) else if (ListBox1.Items[i]<>ListBox1.Items[i+1]) then begin ListBox2.Items.Append(ListBox1.Items[i]+" "+inttostr(k)); k:=0; end; inc(i); inc(k); end; end;

Во втором Листе будут Числа и колво их повторения. Только там с последним элементом могут быть проблемы...

← →
Anatoly Podgoretsky © (2006-12-08 12:01) [15]

> Jeer (08.12.2006 11:55:11) [11]

Это не беда, а вот что в программирование рванулся некоторый контингент, это точно беда.

← →
Jeer © (2006-12-08 12:02) [16]

> Только там с последним элементом могут быть проблемы...

Удружила.

← →
Elen © (2006-12-08 12:03) [17]

> Удружила.

Гм. Гм. Значит вот еще версия ;) (Хи-Хи)
procedure TForm1.FormCreate(Sender: TObject); var k,i:integer; begin i:=0; k:=1; while i<ListBox1.Count do begin if (i=ListBox1.Count-1) then ListBox2.Items.Append(ListBox1.Items[i]+" Кол-во "+inttostr(k)) else if (ListBox1.Items[i]<>ListBox1.Items[i+1]) then begin ListBox2.Items.Append(ListBox1.Items[i]+" Кол-во "+inttostr(k)); k:=0; end; inc(i); inc(k); end; end;

← →
ЮЮ © (2006-12-08 12:04) [18]

> Только там с последним элементом могут быть проблемы..

Болезнь этой недели - концы :)

← →
Jeer © (2006-12-08 12:04) [19]

> Anatoly Podgoretsky © (08.12.06 12:01) [15]

Да, какой-то просто наплыв кособоких на ум или еще из коляски ручонками в клавиатуру вцепились и дубасят, надеясь что "Война и мир" получится.

← →
Elen © (2006-12-08 12:06) [20]

> Болезнь этой недели - концы :)

Хах. Ну понял наконец...;)

← →
Roman_ln © (2006-12-08 12:06) [21]

Elen я тя Лю :)
Анатолий умничать но не дать не одного дельного совета каждый сумеет

← →
Anatoly Podgoretsky © (2006-12-08 12:08) [22]

> Elen (08.12.2006 12:00:14) [14]

Все равно ни массив, ни MAX не видать, а поиск уже давно пройденый этап. Ты давай массивы и MAX

← →
ЮЮ © (2006-12-08 12:08) [23]

> Elen я тя Лю :)

Ты ей шоколадку обешал !!!!

← →
Roman_ln © (2006-12-08 12:11) [24]

ЮЮ конечно и не только :)

← →
Jeer © (2006-12-08 12:12) [25]

Оказывается Elen и Я Тя Лю - одно и тоже лицо ?
Китаянка ?

← →
Anatoly Podgoretsky © (2006-12-08 12:12) [26]

> Jeer (08.12.2006 12:04:19) [19]

Раньше существовала теория, что если посадить миллион обезьян за пишущую машинку, то они смогут настучать Войну и Мир.
Интернет доказал, что это не так.

> Elen (08.12.2006 12:06:20) [20]

Куда, куда?

> Roman_ln (08.12.2006 12:06:21) [21]

Дельные советы могут понять только умные люди.

> Anatoly Podgoretsky © (08.12.06 12:12) [26]

Интернет доказал, что миллион обезьян настучать все таки могут:)
Хлама, который уже есть в интернете хватит разгребать археологам до потухания Солнца.

Elen жду тебя в чате :)
Взрослым мужчинам советую играть в шашки и не бурчать на молодёж...
Показаться глупым не страшно, страшно Умничать с глупым видом...
Сам придумал:)

> Оказывается Elen и Я Тя Лю - одно и тоже лицо ?

Накосязакуся? Этамаята фамилията.

> Все равно ни массив, ни MAX не видать, а поиск уже давно
> пройденый этап. Ты давай массивы и MAX

Ща MAXA позову он как даст... Ist Fantastish... ;)

> Roman_ln

Меня админы в чат не пускают!. Аську не дают!. А на местный чат комп выходить не хочет :(.

> Куда, куда?

Слушайте, ну КОНЧАЙТЕ прикидываться, я тоже издеваться люблю (Это была ИзДевка :D)

ясно
жаль хотелось пообщаться

> Elen (08.12.2006 12:25:31) [31]

Что на секс всех потянуло - даст не даст, а может не такая уж и фантастика, может ты в Максе ошибаешься?

> Roman_ln (08.12.2006 12:28:34) [34]

Ой а как на хочется, но не судьба.

> Что на секс всех потянуло - даст не даст, а может не такая
> уж и фантастика, может ты в Максе ошибаешься?

MAXIM s"este MAXIM, его надо решать с конца... ;)

Help!!! listBox найти max кол. повторяющихся элементов Найти похожие ветки