[N.I.K.O.L.A]

Помогите пожалуйста , как организовать в ListView два столбца Items.

Я делаю так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure CollectInformation; begin   InputQuery('Ввод данных', 'Введите время:', strA);   InputQuery('Ввод данных', 'Введите причину:', strB); end;   procedure TEditorRingWindow1.SpeedButton4Click(Sender: TObject); begin CollectInformation; ListView1.Items.Add.Caption := StrA; ListView1.Items.Add.SubItems.Text := StrB; end;

И у меня получается что,
Безымянный.bmp.

[angvelem]

Так:

Код:

1 2 3 4 5 6 7

var   ListItem  : TListItem; begin   ...   ListItem := ListView1.Items.Add;   ListItem.Caption := StrA;   ListItem.SubItems.Add(StrB);

[N.I.K.O.L.A]

Спасибо большое.