Главная страница
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.029 c
15-1170686711
Андрец
2007-02-05 17:45
2007.03.04
Интернет, сотовая связь в самолете


2-1171610324
Прохожев Максим
2007-02-16 10:18
2007.03.04
Нужна помощь


2-1171281873
SergGG
2007-02-12 15:04
2007.03.04
Фон у TMemo


6-1159124688
Орион
2006-09-24 23:04
2007.03.04
Как прикрутить TIdConnectionIntercept к TIdTCPClient?


15-1170830980
Чапаев
2007-02-07 09:49
2007.03.04
В панели задач создать всою панельку