В него слямзенной функцией добавляем из нескольких полей текст. Добавляет очень криво. В Item он добавляет сначала пустую строку потом на следующей введенный текст, а в SubItem наоборот. Что делать не понятно О_О
Заранее спасибо.
Код
procedure TForm1.bbAddClick(Sender: TObject);
var ListItem : TListItem;
begin
ListItem := List.Items.Add;
List.AddItem(edLastName.Text, pointer(edLastName.Text));
ListItem.SubItems.Add(edName.Text);
ListItem.SubItems.Add(edOtch.Text);
ListItem.SubItems.Add(edPhone.Text);
ListItem.SubItems.Add(edAddress.Text);
ListItem.SubItems.Add(cbDate.Text + ' ' + cbMounth.Text + ' ' + edYear.Text);
ListItem.SubItems.Add(edNotes.Text);
end;