Delphi-Quellcode:
if ... = null then begin
end else begin
...
end;
entspricht
Delphi-Quellcode:
if ... <> null then begin
...
end;
Wieso eigentlich NULL?
NULL ist nicht NIL.
Und wurde nicht gesagt .Selected ist schon nil ... tja, dann kann .Selected.Irgendwas nicht funktionieren, denn genau an dieser Stelle tritt ja die
Exception schon auf.
PS: Klicke mal bei deinem "if LV_Produkte.selected.caption = null then"-Code neben die Items, in einen freien ListView-Bereich.
Delphi-Quellcode:
if LV_Produkte.selected <> nil then begin
// oder besser noch
if Assigned(LV_Produkte.selected) then
Aber wie gesagt ... rate mal, wofür Parameter eigentlich gut sein sollen:
Delphi-Quellcode:
procedure TForm1.LV_ProdukteSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
begin
if Selected then begin
//selected_Produkt := strtoint(TListView(Sender).Selected.Caption);
selected_Produkt := strtoint(Item.Caption);
showmessage(inttostr(selected_Produkt));
Zeit_laden();
end;
end;