spalten in listview füllen!

[markus lemcke]

hallo,

ich habe eine listview mit ein paar spalten.<br>
nun soll ich in die spalten werte reinschreiben<br>
weiß jemand wie das geht?

mfg

markus

[Frank Kneffel]

Dieses Beispiel kommt aus der Delphi Hilfe<br>
<pre>
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', 'Rockey')
);

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;
</pre&gt

[markus lemcke]

das beispiel sieht abso so aus als ob spalten hinzugefügt werden, ich möchte in vorhandene reinschreiben!!

[Frank Kneffel]

Dann versuche es so:<br>
listview.columns.items[i].caption:='Text

[markus lemcke]

das ist schon besser. verändert aber eine bestehende spaltenüberschrift!

[Frank Kneffel]

Einen habe ich noch.<br>
<pre>
var ListItem: TListItem;
begin
ListItem := listview1.Items.Add;
ListItem.Caption := 'Spalte 0';
listitem.SubItems.Add('Spalte 1');
listitem.SubItems.Add('Spalte 2');
end;
</pre>
Funktioniert wenigstens bei mir.
<br>Fran

[markus lemcke]

danke! kollege hat mir es gerade gezeigt!!! genau so!!