Problem mit IF unf FieldbyName

[DeddyH]

Delphi-Quellcode:

if not CheckBox1.Checked then
  begin
    ADOQuery1.Active:=false;
    ADOQuery1.Sql.Clear;
    ADOQuery1.Sql.Add('...');
    AdoQuery1.Prepared := True;
    AdoQuery1.ExecSQL;
    ADOQuery1.Next;
  end;
if CheckBox1.Checked then //else würde auch genügen
  begin
    ADOQuery1.Active:=false;
    ADOQuery1.Sql.Clear;
    ADOQuery1.Sql.Add('...');
    AdoQuery1.Prepared := True;
    AdoQuery1.ExecSQL;
    ADOQuery1.Next;
  end;