| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Pronumerovat stroki v ListBox e

Suprime ©   (2002-11-17 12:37:00) 

Imeetsa ListBox s mnozestvom strok. Kak pri nazatii na Button1 pered kazdoy strokoy postavit" "1. ", "2. ", "3. " i t.d.
T.e. nado pronumerovat"
Spasibo!

---

snake1977   (2002-11-17 12:46:00) [1]

Например вот так :)
или я не понял вопроса ;)

For i:=0 to ListBox1.Items.Count-1 do
ListBox1.Items[i]:=IntToStr(i)+". "+ListBox1.Items[i];

---

LongIsland   (2002-11-17 12:44:00) [2]

procedure TForm1.Button3Click(Sender: TObject);
var
i: Integer;
begin
for i:=0 to ListBox1.Count-1 do
ListBox1.Items.Strings[i]:=IntToStr(i)+": "+ListBox1.Items.Strings[i];
end;

---

Наверх