Форум: "Основная";
Текущий архив: 2002.11.28;
Скачать: [xml.tar.bz2];

Вниз

Pronumerovat stroki v ListBox e   Найти похожие ветки 

← →
Suprime   (2002-11-17 12:37) [0]

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!

---

← →
LongIsland   (2002-11-17 12:44) [1]

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;

---

← →
snake1977   (2002-11-17 12:46) [2]

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

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

---

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

Форум: "Основная";
Текущий архив: 2002.11.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c