Вопросы по ListView

[UKRtortik]

Добрый день! Имеется 2 вопроса по работе с данным компонентом.
1. Как сделать нумерацию строк?

2. Как по нажатию на любую строку, вытащить из нее (из данной строки) необходимую информацию, например тот же номер в списке и другие значения которые туда записаны?

[-=Virus=-]

По чему бы не использовать StringGrid за место ListView?

[bulldog5293]

всё что тебе нужно по этому линку
http://www.cyberforum.ru/delphi-begi...read27446.html
P.S. дал линк т.к. много описывать

[XE5]

UKRtortik

procedure TForm1.Button1Click(Sender: TObject);
var Item: TListItem;
begin
Item := ListView1.Items.Add;
Item.Caption := IntToStr(ListView1.Items.Count);
Item.SubItems.Add('Другое значение');
end;

procedure TForm1.ListView1Click(Sender: TObject);
begin
ShowMessage(ListView1.Selected.Caption);
ShowMessage(ListView1.Selected.SubItems[0]);
end;

-=Virus=- а почему не использовать ListView? Он что, ущербный?
bulldog5293 5 строк кода, это не много.

[UKRtortik]

XE5, Спасибо! Очень помогли.
А еще вопрос такой, а можно как то запретить выполнять "ListView1Click" если ListView не заполнен?

[XE5]

UKRtortik
Как и в любом списке смотрите Items.Count. Если по нулям, то Exit.

[UKRtortik]

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

UKRtortik
Как и в любом списке смотрите Items.Count. Если по нулям, то Exit.

Как то так примерно?

if (trim(ListView1.Selected.SubItems[1]) = '') then begin
Exit;
end;

[ReportCube]

Подумайте: что вернёт свойство ListView1.Selected, если записей нет?

[UKRtortik]

Думаю так правильно будет?

if ListView1.Items.Count =0  then begin
Exit;
end;

[Stilet]

Думаю так правильно будет?

Правильно. Пробуй.