ListenIndex überschreitet maximum

[hedie]

Hallo

Ich habe mal wieder ein Problem

Ich möchte diesen code anwenden Das markierte macht hier probleme

Delphi-Quellcode:

procedure TForm2.FormShow(Sender: TObject);
var
  ListItem: TListItem;
  i:integer;
begin
listboxm2.Items.AddStrings(listdbp());
i := 0;
repeat
begin
  with listboxm1 do
    begin
      ListItem := Items.Add;
      ListItem.Caption := listdbn.Strings[i];
      ListItem.SubItems.Strings[0] := listdbn.Strings[i]; <----------------------------------
    end;
    end;
    i := i + 1;
until i = tempc;
label5.Caption := 'Datenbank erfolgreich geladen';
end;

listboxm1 ist hier ein TListView

Wenn ich diesen code
ListItem.SubItems.Strings[0] := listdbn.Strings[i]; Mittels Button ausführe, dann gehts

die medlung lautet: Listenindex überschreitet das maximum (0)

was ist hier blos falsch?

[DeddyH]

Auch SubItems werden mit Add() hinzugefügt.

[hedie]

is doch schon

Delphi-Quellcode:

    begin 
      ListItem := Items.Add;  <-----
      ListItem.Caption := listdbn.Strings[i];

[Alien426]

Du musst erst mal SubItems hinzufügen. Da dabei gleich der String übergeben wird bist du nach dem Add auch schon fertig.

[DeddyH]

Delphi-Quellcode:

ListItem := Items.Add;
ListItem.Caption := listdbn.Strings[i];
ListItem.SubItems.Add(listdbn.Strings[i]);

[hedie]

aber es soll in die zweite spalte hinein

[Matze]

Dann fülle doch einfach die erste Spalte mit einem Leerstring. Oder wie meinst du das nun? Der obige Code füllt die erste und zweite Spalte.

[DeddyH]

Zitat von hedie:

aber es soll in die zweite spalte hinein

Woher soll ich das denn wissen? Ich habe nur Deinen Code kopiert.

[hedie]

Edit::

Das weisst du deswegen weil hier ne 0 steht

ListItem.SubItems.Strings[0] <-----

__________________________________________________ _______________

Also mit

ListItem.Caption := listdbn.Strings[i]; Schreib ich ja in die erste spalte der listview

und wenn ich mit

ListItem.SubItems.Add(listdbn.Strings[i]); in die zweite schreiben kann, kann ich das ja noch verstehen, aber wie komm ich dan in
die 3,4..... spalte?

[DeddyH]

3. Spalte:ListItem.SubItems.Add(...); 4. Spalte:ListItem.SubItems.Add(...); Jede weitere Spalte:ListItem.SubItems.Add(...); Alles klar?