Checkbox in DB abfragen

[Gehstock]

Delphi-Quellcode:

procedure TForm4.ComboBox1Change(Sender: TObject);
var
i: Integer;
s: String;
l: TListItem;
begin
ListView1.clear;
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
        l := ListView1.Items.Add;
        l.Caption := ADOQuery1.FieldByName('Artikel').asString;
        l.SubItems.Add(ADOQuery1.FieldValues['Preis']);
        l.Checked := ADOQuery1.FieldValues[s] = null;
        ADOQuery1.Next;
     end;
end;

Edit

Delphi-Quellcode:

if ADOQuery1.FieldValues[s].asbool = True then
        l.Checked := True;

erzeugt einen variablen fehler bei der abfrage

der string S entspricht 4 Access DB - Spalten in denen sich checkboxen befinden je nach auswahl der combobox wird dann in der jeweiligen spalte geschaut ob die checkbox markiert ist

[Gehstock]

ok gefunden geht so

Delphi-Quellcode:

if ADOQuery1.FieldByName(s).asBoolean = True then
        l.Checked := True;

[DeddyH]

Und so geht's besser:l.Checked := ADOQuery1.FieldByName(s).asBoolean;

[Sharky]

Hai Gehstock,

deine Frage wurde ja beantwortet. Aber ich habe mal eine Anmerkung zu deinem "Programm":
Ich würde die "Landesinformationen" nicht im Quellcode hinterlegen sondern auch diese aus einer Tabelle der Datenbank ziehen. Und die Währungsinformation nicht über einen String angeben sondern über den PK der Tabelle mit den Landesinformationen.