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?