LISTBOX!!! - hhhheeeeeellllppppppp!!!!!!!!!

← →
ИЛЮХА (2003-12-22 19:31) [0]

У меня такой интересный вопрос!!! Объясню на примере.
У меня несколько LISTBOX-ов (допустим четыре) я удаляю один файл из списка одного из LISTBOX-ов (допустим третий )
И МНЕ НУЖНО ЧТО БЫ С ОСТАЛЬНЫЙ LISTBOX-ов УДАЛИЛИСЬ третьи ФАЙЛЫ, Т.Е.

Я удаляю "333" из первого LISTBOX-a и должны удалиться "ddd" "888" "rrr", из 3-ч других LISTBOX-ов. Доступно объяснил!?!? (пример)
Только не надо писать простое удаление, т.е.
если 333 delete then ddd b 888 b rrr delete (не рабочий пример).
Желательно, без
If LB1.ItemsIndex1 delete then ...
Че тока не пробовал, не получается, то ошибки, то ошибок нет, но не работает!?!?
Может кто знает!?!?

← →
panov (2003-12-22 19:35) [1]

Во-первых, незачем так орать.
Во-вторых, где твой неработающий код?

← →
ИЛЮХА (2003-12-22 20:33) [2]

Во-первых я не ору!!! Ты вообще врятли меня слышишиь!!!
Ни какого кода нет. Их было много, не которые даже работали, но не так как мне надо.

P.S. panov - это твоя фамилия???????????

← →
panov (2003-12-22 20:52) [3]

>ИЛЮХА © (22.12.03 20:33) [2]

Восклицательные знаки используются в интернете именно для воплей.

по теме:

Ни какого кода нет. Их было много, не которые даже работали, но не так как мне надо.

Так как же мы тебе можем помочь, если непонятно, каким образом ты удаляешь строку, что тебе известно на момент удаления, как информация структурирована в TListBox.

← →
Palladin (2003-12-23 05:11) [4]

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

← →
TUser (2003-12-23 07:05) [5]

[2] - интересный ответ. Тебя спросили, гле твой неработающий код. Ты отвечаешь, что, мол, много их было, но только они не работают. Так хоть один привел бы.

← →
Zergling (2003-12-23 07:09) [6]

P.S. panov - это твоя фамилия???????????

panov © осторожней! Видать силовое ведомство или еще чего. А может и вобще закажут :)

← →
Ega23 (2003-12-23 09:06) [7]

> Zergling © (23.12.03 07:09) [6]
> P.S. panov - это твоя фамилия???????????
>
> panov © осторожней! Видать силовое ведомство или еще чего.
> А может и вобще закажут :)

Или налоговая...

← →
Спрашивающий_ (2003-12-23 09:56) [8]

И чем кричащему товарищу If-ы не понравились?
p.s. Если бы так не кричали и самое главное не умничал, ответ получил бы через 1 мин, а то завалил тут всех кодами уж не знаю с какого начать?

← →
@lex (2003-12-23 10:09) [9]

После первого вопроса не понятно что товарищ вообще хочет, а после второго ответа - не понятно даже, хочет он ответ получить, или так, пообщаться решил...

← →
wicked (2003-12-23 10:15) [10]

2 ИЛЮХА

например так
procedure DeleteItem(const name: string);
var i: integer;
begin
i := ListBox1.Items.IndexOf(name);
if i >= 0 then begin
ListBox1.Items.Delete(i);
ListBox2.Items.Delete(i);
ListBox3.Items.Delete(i);
ListBox4.Items.Delete(i);
end;
end;

а вообще то повежливей не мешало бы быть...

← →
wicked (2003-12-23 10:16) [11]

ЗЫ не люблю реп... :(

← →
REA (2003-12-23 10:20) [12]

А файлы тут при чем?

← →
ИЛЮХА (2003-12-23 10:38) [13]

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

← →
имя (2003-12-23 10:41) [14]

Удалено модератором
Примечание: Не надо в стеб вести под разными именами...

← →
Тимохов (2003-12-23 10:41) [15]

2ИЛЮХА © (23.12.03 10:38) [13]

Прикол, "работатет, но делает того, что нужно".
Это шутка, что ли - говоришь вот пример, кода, который рабатет, но не делает то, что нужно, и ничего не приводишь?

Юмор ценю.

← →
ИЛЮХА (2003-12-23 10:48) [16]

Я закасячил.
Вот код:

Procedure DelItem(Index:Word);
Begin
LB1.Items.Delete(Index);
LB2.Items.Delete(Index);
LB3.Items.Delete(Index);
LB4.Items.Delete(Index);
End;

он делает НЕ то что нужно.
У меня просто пальцы в клаве застряли.

← →
TUser (2003-12-23 10:48) [17]

2 ИЛЮХА
Не длинный у тебя код получился. Целых 0 строчек.

PS. Интересно, скоро эту ветку в Потрепаться отправят?

← →
Тимохов (2003-12-23 10:51) [18]

ИЛЮХА © (23.12.03 10:48) [16]

Да ты издеваешься просто - откуда нам знать как ты эту процедуру вызываешь.

← →
REA (2003-12-23 10:51) [19]

>У меня просто пальцы в клаве застряли.

Вот это скорее всего.

← →
Palladin (2003-12-23 11:01) [20]

> ИЛЮХА © (23.12.03 10:48) [16]

Приведенный код делает именно то что ему и сказано, а конкретно, удаляет элемент под номером Index из четырех TListBox (ведь это всё TListBox?). С другой стороны, теперь стоит послушать: почему ты считаешь, что он делает не то что нужно?

← →
ИЛЮХА (2003-12-23 11:20) [21]

Прочитай первую статью. и ты поймешь.
Или я че то не то делаю.
напишите мне тогда еще обработчик для кнопки удаления.
Я сверю. может у меня с руками чето не то.
пожалуйста.

← →
Тимохов (2003-12-23 11:21) [22]

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

← →
Alex_Bredin (2003-12-23 11:22) [23]

клинический случай

← →
Romkin (2003-12-23 11:23) [24]

2ИЛЮХА http://ln.com.ua/~openxs/articles/sq_118.html
Пожалуйста, внимательно прочитай

← →
KSergey (2003-12-23 11:26) [25]

> ИЛЮХА © (22.12.03 19:31)
> Я удаляю "333" из первого LISTBOX-a и должны удалиться "ddd"
> "888" "rrr", из 3-ч других LISTBOX-ов. Доступно объяснил!?!?

НЕТ! НЕ ПОНЯТНО!

Совершенно не понятно как связаны "333" из первого LISTBOX-a и "ddd" "888" "rrr", из 3-ч других LISTBOX-ов

И при чем тут файлы? Где тут файлы? Пока вроде речь только про элементы из ListBox"ов.
А файлы тут при чем???

PS
Я просто поражаюсь, насколько мы тут все тупые! Вот только автора это, похоже, ни на какие мысли не наталкивает...

← →
KSergey (2003-12-23 11:30) [26]

OFF

> [24] Romkin © (23.12.03 11:23)
> 2ИЛЮХА http://ln.com.ua/~openxs/articles/sq_118.html
> Пожалуйста, внимательно прочитай

Сколько читаю этото материал - никак не могу понять при чем тут хакеры?

← →
@lex (2003-12-23 11:32) [27]

2 ИЛЮХА ©
Все таки ваша функция должна делать то что нужно. Наверное, вы не то подставляете в качестве параметров.
У вас одна кнопка, и вам нужно выяснить какой из ListBox-ов активный, и потом подставить в функцию индекс выбранной записи активного ListBox-а?

← →
sniknik (2003-12-23 11:50) [28]

беда некоторых программистов,
"программа делает не то что задумано а то что написано." ;о))

← →
Igorek (2003-12-23 13:31) [29]

НАРОД, Я ПОООНЯЯЯЛЛЛ!!! :)
У чела есть четыре листбокса. Он выбирает в одном какую то запись, а потом жмет на кнопку. И хочет что-бы во всех листбоксах удалилась запись с тем номером, что выбранная.
Проблема в том, что обработчик кнопки не знает, какой лист бокс использовался перед нажатием на кнопку.

> ИЛЮХА © (22.12.03 19:31)

Короче делай один обработчик на все листбоксы, анализируй Sender, узнавай индекс элемента и удаляй во всех. Код не приведу - не проси. :)))

← →
Anatoly Podgoretsky (2003-12-23 13:36) [30]

Ты думаешь, вот он сейчас в чате, а ситуация не меняется, все что известно, так это то что НЕ РАБОТАЕТ

← →
Marser (2003-12-23 13:40) [31]

А можно Chubais"a заменить? Можно, да? Ну ладно:
АААААААААААААААААААААААА!!!!
;-)

← →
Palladin (2003-12-23 13:40) [32]

> ИЛЮХА © (23.12.03 11:20) [21]

Какую первую статью? Не вижу никаких статей. Отвечай на поставленный мною вопрос по существу и я тебе отвечу по существу.

← →
ИдиотЪ (2003-12-23 13:42) [33]

зачем так громко кричать, я уже и так ничего не слышу !!!

← →
Ru (2003-12-23 16:09) [34]

>ИЛЮХА ©

по идее алгоритм следующий:
1. кликаем на один из листбоксов, чем вызываем событие OnClick, в котором присваиваем заранее приготовленной глобальной переменно номер выделенной записи (соответственно у каждого листбокса свой OnClick)
2. нажимаем кнопку, которая отвечает за удаление записей, вот эта кнопка вызывает приведенный вами код из сообщения ИЛЮХА © (23.12.03 10:48) [16]; в этом коде в качестве передаваемого параметра вам необходимо использовать вашу глобальную переменную.

var
intGlobalListBoxItemNumber:word; //глобальная переменная

procedure LB1.OnClick(Sender:TObject);
begin
intGlobalListBoxItemNumber:=LB1.ItemIndex;
end;

{повторить асолютно похожее для каждого LB}

procedure DelBtn(Sender:TObject);
begin
DelItem(intGlobalListBoxItemNumber); //запустили удаление
end;

я могу ошибаться

← →
митяй (2003-12-23 16:14) [35]

Чушь какакя-то!
Чувак явно не в себе!!!

← →
Mike Kouzmine (2003-12-23 16:17) [36]

Ru © (23.12.03 16:09) [34] Ошибаешься.
Проблема в том, чтобы определить активный бокс перед нажатием кнопки. Можно сделать так, на событие onEnter всех боксов поставить код, который чистит таг (0) у всех боксов, а свой выставляет в 1. При нажатии на кнопку ищем бокс у кого выставлен таг и пляшем от печки.
Можно по другому.

← →
Ru (2003-12-23 16:19) [37]

>Mike Kouzmine © (23.12.03 16:17) [36]

вслед за автором ветки посылаю к первому сообщению. Если я не ошибся в коде, то всё правильно.

← →
Mike Kouzmine (2003-12-23 16:21) [38]

Ru © (23.12.03 16:19) [37] Просмотрел, что она глобальная.

← →
Ru (2003-12-23 16:23) [39]

>Mike Kouzmine © (23.12.03 16:21) [38]

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

← →
Sandman25 (2003-12-23 16:50) [40]

[39] Ru © (23.12.03 16:23)

Зачем 4? Sender же есть.

← →
Ru (2003-12-23 16:54) [41]

>Sandman25 © (23.12.03 16:50) [40]

читаем ветку с начала и приходим к выводу, что для обеспечения нормального восприятия полученной информации пример должен быть на том же уровне

← →
Sandman25 (2003-12-23 16:56) [42]

[41] Ru © (23.12.03 16:54)

Хлопая себя по лбу...
-А...
-Семен Семеныч...

← →
REA (2003-12-23 17:34) [43]

Все на борьбу с листбоксами...
Мне почему то кажется, что после решения проблемы лучше никому не станет. Скорее наоборот.

← →
Mike Kouzmine (2003-12-23 17:38) [44]

REA © (23.12.03 17:34) [43] Почему же. Может какой-нибудь малыш из далекой Африки хоть на секунду станет счастливее...

← →
Igorek (2003-12-23 17:52) [45]

> Mike Kouzmine ©
> Ru ©

Народ, проще все. Один обработчик на все листбоксы и в нем такое:
var Index: Integer; begin if Sender = LB1 then Index := LB1.ItemIndex(LB1.Text) else if Sender = LB2 then Index := LB2.ItemIndex(LB2.Text) else if Sender = LB2 then Index := LB3.ItemIndex(LB3.Text) else Index := LB4.ItemIndex(LB4.Text) LB1.DeleteItem(Index); LB2.DeleteItem(Index); LB3.DeleteItem(Index); LB4.DeleteItem(Index);
Сорри, если методы где попутал.

← →
Ru (2003-12-23 18:04) [46]

>Igorek © (23.12.03 17:52) [45]

во-первых лень напрягаться
во-вторых если человек так реагирует даже на попытки помощи, то уложнять не следует, пример должен быть как можно проще

← →
MVova (2003-12-23 18:07) [47]

← →
Palladin (2003-12-23 19:30) [48]

← →
ssk (2003-12-23 19:40) [49]

рульная ветка

← →
Marser (2003-12-23 20:00) [50]

Вот только мне подумалось, что форум оскучнел, сразу появилось несколько веток-опровержений. Так держать, господа LMD!

← →
Style (2003-12-23 20:05) [51]

← →
app (2003-12-23 20:16) [52]

Личная переписка, у господина Marser доступна почта, вот туда и пошли свой вопрос.

← →
app (2003-12-23 20:17) [53]

Ответ ествествнно, если будет желание, также по почте, ответный адрес тоже доступен.

← →
Style (2003-12-23 20:28) [54]

2 app

- Сорри, так и сделал можно вырезать!

← →
app (2003-12-23 20:52) [55]

Оставьлю для других.

← →
Спрашивающий_ (2003-12-24 03:20) [56]

To ИЛЮХА ©
procedure TForm1.Button1Click(Sender: TObject);
var
I:Word;
J:SmallInt;
begin
J:=ListBox1.ItemIndex;//Нужный Items(ИЛЮХА © определяйся сам, вариантов много )
If J>=0 Then
For I:=0 To Form1.ComponentCount-1 Do
If Form1.Components[I] is TListBox Then
TListBox(Form1.Components[I]).Items.Delete(J) ;
end;

← →
Германн (2003-12-24 03:59) [57]

Пока нет ответа на
KSergey © (23.12.03 11:26) [25]
"Совершенно не понятно как связаны "333" из первого LISTBOX-a и "ddd" "888" "rrr", из 3-ч других LISTBOX-ов"
любой ответ будет не хуже этого:

Randomize; for i:=0 to Form1.ComponentCount-1 Do If Form1.Components[I] is TListBox Then begin k:=Random(TListBox(Form1.Components[I]).Items.Count); TListBox(Form1.Components[I]).Items.Delete(k) ; end;

← →
KSergey (2003-12-24 08:37) [58]

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

← →
mfender (2003-12-25 12:29) [59]

Здорово. От души развлекся. Как в баню сходил. Заново народился. Поорать бы счас на радостях то... А!!? А-а-а!!!!

← →
Marser (2003-12-26 20:40) [60]

> Style © (23.12.03 20:05) [51]
> а к какой категории относит себя господин Marser © ?

Полубог ;-)

> app © (23.12.03 20:16) [52]
> Личная переписка, у господина Marser доступна почта, вот
> туда и пошли свой вопрос.

Marser "a, я в анкете пол указал конкретно(если у кого-то вызывает сомнения имя :-) )

← →
Nous Mellon (2003-12-26 20:43) [61]

> Полубог ;-)

Нехорошо

← →
Marser (2003-12-27 00:37) [62]

> Nous Mellon © (26.12.03 20:43) [61]
>
> > Полубог ;-)
>
> Нехорошо

А что, на такие вопросы надо серьезно отвечать? Прочитав письмо, я вообще хотел послать открытым текстом, но потом нашел ветку и решил отшутиться.

← →
Style (2003-12-27 11:57) [63]

Marser ©
Ну так пошли открытым текстом..

Вот я например - лесоруб ;)
Вроде ничего не знаю, зато топором умею махать.

Просто я не понимаю, когда один человек начинает считать другого LMD, по сравнению с собой? Это начинает вызывать некоторую неприязнь.

Сейчас на столько вырос компьютерний мир в ширину, т.е. появилось куча всяких направлений и даже видов компьютерной деятельности - ну нельзя так просто обозвать человека ламером, если он в чем то не прав - вообще LMD помоему это глупая оценка, а если человек хамит явно - то это уже флудер или бык! :)

LISTBOX!!! - hhhheeeeeellllppppppp!!!!!!!!! Найти похожие ветки