ListBox=>Items=>Random=>?

← →
LINK_‡) (2003-10-09 07:16) [0]

Как в ListBox"e по нажатию кнопки строчки менялись местами случайным образом ( кол-во строк изменяется )?

← →
MBo © (2003-10-09 07:19) [1]

randomize
random
Items.Exchange

← →
LINK_‡) (2003-10-10 00:40) [2]

Это всё, ладно а как сделать чёб когда добавляешь итем проверялось если такой уже если есть то он не добавися.
Всем THX !!!

← →
MBo © (2003-10-10 00:44) [3]

внимательно читать хелп по TStrings

← →
LINK_‡) (2003-10-11 02:59) [4]

MBo чё касается первого вопроса немогу сделать чтобы все итомсы менялись одновременно только два ‡/

← →
MBo © (2003-10-11 13:17) [5]

>чтобы все итомсы менялись одновременно
Это даже Борланду всемогущему неподвластно ;)

← →
default © (2003-10-12 00:23) [6]

LINK_‡) (09.10.03 07:16)
чтоб одновременно, надо иметь более одного проца...

← →
SPIRIT © (2003-10-12 01:58) [7]

var
sosixren:valse;
begin
for i:=1 to listboxyi.items.count (синий я, не помню)
do begin
// vsya xren poshla tipa:
if строчка из итемса равна нашей строке тогда sosixren:=true;
end;
if sosixren=true then //sosi xren vnature
end;

← →
LINK_‡) (2003-10-12 02:44) [8]

XepHЯ, можно это сделать в одной процедуре сам видел проги где такое делается (в том числе и на делфи), в том же WinAmp"e. Вообще не люблю форумы: задаёшь вопрос, а те отвечают ну возми посмотри там, поэкспереминтируй, почитай Help, купи книжку ‡( … как будто я этого не делал, если я задаю вопрос то значит вообще незнаю как это сделать поэтому прошу если незнаете сами то непишите вообще ни чего…
P.S ща заценим скрипт

← →
Palladin © (2003-10-12 02:56) [9]

Ты сюда за готовым приходишь? Здесь обычно учат учится и развиватся, а не жуют и кладут в рот, хотя и такое бывает. В твоем вопросе не тот случай. На решении таких задач школьники программированию обучаются, составлению алгоритмов и их реализации.

← →
Anatoly Podgoretsky © (2003-10-12 07:47) [10]

О да тебе надо в службу персональной поддержки.
Или в крайнем случае посмотреть в сборники готовыъ решений, но это тебе не подойдет поскольку опять надо посмотреть где то, то ли дело support скажал хочу и тебе посмотрят, принесут и еще поблагодарят за обращение к ним.

← →
LINK_‡) (2003-10-13 00:56) [11]

-=читать до конца=-
Palladin ты говоришь сдесь учат, ну и чему меня научили за 5 дней ??? (5 дней вопрос висит)на мой вопрос мне MBo ответил моимже вопросом:
randomize
random
Items.Exchange
эти функции я и сам знаю, но когда я спросил как сделать чтобы всё поменялось мне ответили, что это невозможно (это и является уход от ответа и показывает, что они и сами не очень понимают как это сделать, в таком случае зачем вообще что-то писать).Прошло несколько дней, а работа стоит, понимаете в делфи программю 2 недели купил пару практически бесполезных книг и толку не кового я уже стоко написал жаль останавливаться на пол пути, если для вас Palladin это одна из "таких задач школьного программирования", незатруднит тебя сделать исключения и неположить мне в рот готовый кусок кода 8) или мне ити куда подалше разачерованному в человеческой помощи!
P.S. если кого оскорбил простите

← →
Palladin © (2003-10-13 01:11) [12]

на, глотай

randomize; for i:=0 to ListBox1.Items.Count-1 do ListBox1.Items.Exchange(random(ListBox1.Items.Count-1),random(ListBox1.Items.Count-1));

трудно самому вот такое придумать?

а вот так будет прикольно выглядеть
randomize;
for i:=0 to ListBox1.Items.Count*2 do
begin
ListBox1.Items.Exchange(random(ListBox1.Items.Count-1),random(ListBox1.Items.Count-1));
Sleep(50);
Application.ProcessMessages;
end;

← →
default © (2003-10-13 01:19) [13]

randomize;
for i:=0 to ListBox1.Items.Count-1 do
ListBox1.Items.Exchange(random(ListBox1.Items.Count),random(ListBox1.Items.Count));

← →
Palladin © (2003-10-13 01:25) [14]

точно... спать пора...

← →
LINK_‡) (2003-10-13 14:28) [15]

гл-хх-ммы-мх, как вкусно, чмек-чмок, большой спасиб вам ‡) теперь пойду переваривать. А вам спокойной ночи!

← →
LINK_‡) (2003-10-14 01:00) [16]

А теперь помогите советом как к каждому итему по бокам добавить какой-нибудь текст

s:=s1+s2+s3;

← →
LINK_‡) (2003-10-14 13:23) [18]

Не я гоню подуратски вопрос задал. Мне нужно чёб из ListBox"a в (допустим Memo) текст переходил, но и добовлялось, что-то по бокам,.. ой опять чушь... короче вот:

ListBox: Memo:
Привет <b.>Привет</b.>
Здорово ==> <i.>Здорово</i.>
Хай ол <u.>Хай ол</u.>

чё то типа этого
P.S. <b.> точка для того чёб форум ее за тег не принял

← →
Плохиш_ (2003-10-14 13:52) [19]

>LINK_‡) (14.10.03 13:23) [18]

Книжки говоришь бесполезные?
Есть мнение, что голова никуда не годиться.

← →
LINK_‡) (2003-10-15 00:53) [20]

2 Плохиш_
С головой всё ОК, например с Flash"ом, HTML и JS никаких проблем нет, потому что им я уделил времени гораздо больше чем 2 недели и книжки были нормальные, сам то по началу тоже ламаком был? мож пришлеш не бесполезную книжку, а?
Есть мнение что у тебя голова тоже не высший класс, т.к. если заходишь на форум от тебя нужна помощь, а не дуратские ваводы (об этом я писал и теперь у меня ещё мнение что ты четать не умеешь).

← →
LINK_‡) (2003-10-20 00:45) [21]

Ответте мне plz

var
i: integer;
begin
for i:=0 to ListBox1.Items.Count-1 do
begin
Memo1.Lines.Add("<b.>"+ListBox1.Items[i]+"</b.>");
end;

Иль

if ListBox1.Items[0]="Привет" then
Memo1.Lines.Add("<b.>"+ListBox1.Items[0]+"</b.>");
if ListBox1.Items[1]="Здорово" then
Memo1.Lines.Add("<i.>"+ListBox1.Items[1]+"</i.>");
if ListBox1.Items[2]="Хой" then
Memo1.Lines.Add("<u.>"+ListBox1.Items[2]+"</u.>");

← →
LINK_‡) (2003-10-21 00:44) [23]

Спасяба ‡)

ListBox=>Items=>Random=>? Найти похожие ветки