Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.04;
Скачать: CL | DM;

Вниз

Список   Найти похожие ветки 

 
Первокласник Вася   (2007-02-15 21:23) [0]

Привет!

Помогите пожалуйста!
Есть заполненный список типа StringList.
Этот список я перенес в Listbox1. пытаюсь в цикле получить доступ к конкретной записи в списке через listbox.
Не получается...
procedure TForm1.ListBox1Click(Sender: TObject);
var i: integer;
begin
 for i:=0 to list1.Count-1 do
 begin
   label1.Caption:= list1.Strings[i];
 end;
end;



 
Desdechado ©   (2007-02-15 21:24) [1]

и что не получается?


 
Первокласник Вася   (2007-02-15 21:26) [2]

У меня почему-то только первый элемент списка отображается, а я хочу второй, третий и т.д. (в цикле перебрать). Брат, подскажи пожалуйста!


 
Desdechado ©   (2007-02-15 21:33) [3]

дык, ListBox1 и list1 - это разные вещи.


 
Первокласник Вася   (2007-02-15 21:37) [4]

???
А я думал (не правильно значит) что одно и тоже.
А как быть в такой ситуации?
Мне нужно из списка выбрать какой-то элемент и отобразить его.


 
Desdechado ©   (2007-02-15 21:40) [5]

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 if( ListBox1.ItemIndex >= 0 ) then
   label1.Caption:= Listbox1.Items[ Listbox1.ItemIndex ];
end;


 
RASkov   (2007-02-15 21:40) [6]

> [3] Desdechado ©   (15.02.07 21:33)

Больше на прикол похоже... дурь какая-то... ничего связанного из сказанного в [0] не вижу..
procedure TForm1.ListBox1Click(Sender: TObject);
var i: integer;
begin
for i:=0 to listbox1.Count-1 do
begin
  label1.Caption:= label1.Caption+list1.Strings[i];
end;
end;

> Этот список я перенес в Listbox1

Нахрена его кудато переносить если всего-то надо получить доступ к конкретному элементу в списке....?


 
Первокласник Вася   (2007-02-15 21:49) [7]

RASkov ты наверное сам прикалываешься?

У Desdechado пожалуй вариант лучше, по крайней мере для меня, причем рабочий чем твой (извини если обидел). Но эименно [5] то что мне нужно!

Спасибо всем за помощь!!


 
RASkov   (2007-02-15 22:18) [8]

> RASkov ты наверное сам прикалываешься?

Точно:) Просто как можно еще понять такое:
for i:=0 to list1.Count-1 do
begin
  label1.Caption:= list1.Strings[i];
end;
Здесь ты на клик по листбоксу присваиваешь поочередно все элементы лэйбле..., и зачем предварительно создавать и заполнять StringList потом его переносить в ListBox...? Вообщем сам виноват - криво объяснил - мне мозги затуманил, отсюда мой такой ответ.

>извини если обидел

Нисколько. Сам держись:)



Страницы: 1 вся ветка

Текущий архив: 2007.03.04;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.044 c
15-1170686711
Андрец
2007-02-05 17:45
2007.03.04
Интернет, сотовая связь в самолете


15-1170905273
Vasil
2007-02-08 06:27
2007.03.04
http://www.yourfilelink.com сдох. Стал требовать просмотра реклам


11-1150290707
AndreyRus
2006-06-14 17:11
2007.03.04
PopUpMenu.Enabled:= false; // Bug!


2-1171292157
danila_master
2007-02-12 17:55
2007.03.04
Помогите. C++ в Delphi.


6-1159186773
!Trinix
2006-09-25 16:19
2007.03.04
Игровой сервер