
02.10.2006, 23:25
|
 |
Местный
|
|
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
|
|
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
li: TListItem;
begin
li := ListView1.Items.Add;
li.Caption := Edit1.Text; // Добавить в первый столбец
li.SubItems.Add( Edit2.Text ); // Добавить во второй столбец
li.SubItems.Add( Edit3.Text ); // Добавить в третий столбец
end;
|