Jak do TListView dodać programowo item?

Q: Jak do TListView dodać programowo item?

[crayon-661e15847505d771805109/] Kod z helpa Delphi. Zmiana nazwy w ListItem.Caption := Names[I][0]; Autor: Toster

Q: Jak do TListView dodać programowo item?

[crayon-661e15847505d771805109/] Kod z helpa Delphi. Zmiana nazwy w ListItem.Caption := Names[I][0]; Autor: Toster

procedure TForm1.FormCreate(Sender: TObject); 


const 

  Names: array[0..5, 0..1] of string = ( 

    ('Rubble', 'Barney'), 

    ('Michael', 'Johnson'), 

    ('Bunny', 'Bugs'), 

    ('Silver', 'HiHo'), 

    ('Simpson', 'Bart'), 

    ('Squirrel', 'Rocky') 

    ); 


var 

  I: Integer; 

  NewColumn: TListColumn; 

  ListItem: TListItem; 

  ListView: TListView; 

begin 

  ListView := TListView.Create(Self); 

  with ListView do 

  begin 

    Parent := Self; 

    Align := alClient; 


    ViewStyle := vsReport; 


    NewColumn := Columns.Add; 

    NewColumn.Caption := 'Last'; 

    NewColumn := Columns.Add; 

    NewColumn.Caption := 'First'; 


    for I := Low(Names) to High(Names) do 

    begin 

      ListItem := Items.Add; 

      ListItem.Caption := Names[I][0]; 

      ListItem.SubItems.Add(Names[I][1]); 

    end; 

  end; 

end;

procedure TForm1.FormCreate(Sender: TObject);

const

Names: array[0..5, 0..1] of string = (

('Rubble', 'Barney'),

('Michael', 'Johnson'),

('Bunny', 'Bugs'),

('Silver', 'HiHo'),

('Simpson', 'Bart'),

('Squirrel', 'Rocky')

);

var

I: Integer;

NewColumn: TListColumn;

ListItem: TListItem;

ListView: TListView;

begin

ListView := TListView.Create(Self);

with ListView do

begin

Parent := Self;

Align := alClient;

ViewStyle := vsReport;

NewColumn := Columns.Add;

NewColumn.Caption := 'Last';

NewColumn := Columns.Add;

NewColumn.Caption := 'First';

for I := Low(Names) to High(Names) do

begin

ListItem := Items.Add;

ListItem.Caption := Names[I][0];

ListItem.SubItems.Add(Names[I][1]);

end;

Kod z helpa Delphi. Zmiana nazwy w ListItem.Caption := Names[I][0];

Autor: Toster