zusammenfalten · markieren

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

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

markieren

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.

Danke wieder was gelernt

jetzt hab ich aber in der spalte De aber eine Checkbox drin wie frage ich die ab
l.SubItems.Add(ADOQuery1.FieldValues['De']); ?

Zitat von Gehstock:

jetzt hab ich aber in der spalte De aber eine Checkbox drin wie frage ich die ab
l.SubItems.Add(ADOQuery1.FieldValues['De']); ?

markieren

Delphi-Quellcode:

  if Listview1.Items[0].Checked then

Zitat von Gehstock:

jetzt hab ich aber in der spalte De aber eine Checkbox drin wie frage ich die ab
l.SubItems.Add(ADOQuery1.FieldValues['De']); ?

markieren

Delphi-Quellcode:

  if Listview1.Items[0].Checked then

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