Zugriffsverletzung beim hinzufügen von Listview einträgen

[Gehstock]

Delphi-Quellcode:

procedure TForm4.ComboBox1Change(Sender: TObject);
var
i: Integer;
s: String;
l: TListItem;
begin
{case ComboBox1.ItemIndex of
 0: s:= 'DE';
 1: s:= 'AUT';
 2: s:= 'SUI';
 3: s:= 'HUN';
end;  }
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'select * from DA42';
ADOQuery1.Open;
     While Not ADOQuery1.Eof do
     begin
        with ListView1.Items.Add do begin
                     l.Caption := ADOQuery1.FieldByName('Artikel').asString;
                     l.SubItems.Add(ADOQuery1.FieldValues['Preis']);
        end;
        ADOQuery1.Next;
     end;
end;

was mach ich falsch

[Bernhard Geyer]

l: TListItem ist nil und das with-Konstrukt ist sinnlos da nix verwendet.

[DeddyH]

Delphi-Quellcode:

While Not ADOQuery1.Eof do
     begin
        l := ListView1.Items.Add;
        l.Caption := ADOQuery1.FieldByName('Artikel').asString;
        l.SubItems.Add(ADOQuery1.FieldValues['Preis']);
        ADOQuery1.Next;
     end;

With kannst Du hier nicht nehmen.

[Gehstock]

Danke wieder was gelernt

[Gehstock]

jetzt hab ich aber in der spalte De aber eine Checkbox drin wie frage ich die ab

Delphi-Quellcode:

l.SubItems.Add(ADOQuery1.FieldValues['De']); ?

[Mattin]

Zitat:

Zitat von Gehstock

jetzt hab ich aber in der spalte De aber eine Checkbox drin wie frage ich die ab

Delphi-Quellcode:

l.SubItems.Add(ADOQuery1.FieldValues['De']); ?

Delphi-Quellcode:

  if Listview1.Items[0].Checked then

[Mattin]

Zitat:

Zitat von Gehstock

jetzt hab ich aber in der spalte De aber eine Checkbox drin wie frage ich die ab

Delphi-Quellcode:

l.SubItems.Add(ADOQuery1.FieldValues['De']); ?

Delphi-Quellcode:

  if Listview1.Items[0].Checked then

[Gehstock]

nee die Checkbox im Listview soll den wert der Checkbox in der Access Db übernehmen (das ist die Frage wie ich die abfrage) aber das gehört in ein neues Thema zu den Datenbanken