[xsaven]

как пронумеровать строки в listbox в delphi если уже данные в нем есть

[cotseec]

ListBox1.Style:=lbOwnerDrawVariable; или какй другой OwnerDraw

Код:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  tmp:string;
begin
  tmp:=IntToStr(Index+1)+' '+ListBox1.Items.Strings[Index];
  ListBox1.Canvas.TextOut(Rect.Left,Rect.Top,tmp);
end;

[angvelem]

В ListBox-е имется возможность сделать несколько колонок, в первую вносим номера, во-вторую данные (правда несколько геморойно). Но удобнее использовать ListView.

[xsaven]

Сообщение от cotseec

ListBox1.Style:=lbOwnerDrawVariable; или какй другой OwnerDraw

Код:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  tmp:string;
begin
  tmp:=IntToStr(Index+1)+' '+ListBox1.Items.Strings[Index];
  ListBox1.Canvas.TextOut(Rect.Left,Rect.Top,tmp);
end;

А куда вставлять данный код?

[YVitaliy]

В событие OnDrawItem ListBox'а. Выбираешь ListBox, в ObjectInspector'е на вкладке Events дважды кликаешь по строке OnDrawItem

[xsaven]

мне помог вот этот код

PHP код:

for i:=0 to listbox1.Items.Count-1 do
listbox1.Items.Strings[i]:=inttostr(i+1)+'. '+ listbox1.Items.Strings[i]; 


[angvelem]

Ты уж выбирай или

Сообщение от xsaven

как пронумеровать строки в listbox в delphi если уже данные в нем есть

или заполнить ListBox данными с нумерацией строк. Это разные понятия. Тебе отвечали на прямо поставленный вопрос.
По нескольким топикам вижу, не можешь правильно сформулировать вопрос и разводишь из-за этого волынку.