Okay ich versuche das ganze jetzt so:
Delphi-Quellcode:
procedure TForm1.DateTimePicker3Change(Sender: TObject);
begin
if CheckBox1.Checked = True then
KST_LagerbewertungQuery.SQL := ('SELECT * FROM KST_Lagerbewertung' +
'WHERE ''SollGeliefert'' BETWEEN DateTimePicker3 AND DateTimePicker4')
else
KST_LagerbewertungQuery.SQL := ('SELECT * FROM KST_Lagerbewertung' +
'WHERE ''IstGeliefert'' BETWEEN DateTimePicker3 AND DateTimePicker4')
end;
procedure TForm1.DateTimePicker4Change(Sender: TObject);
begin
if CheckBox1.Checked = True then
KST_LagerbewertungQuery.SQL := ('SELECT * FROM KST_Lagerbewertung' +
'WHERE ''SollGeliefert'' BETWEEN DateTimePicker3 AND DateTimePicker4')
else
KST_LagerbewertungQuery.SQL := ('SELECT * FROM KST_Lagerbewertung' +
'WHERE ''IstGeliefert'' BETWEEN DateTimePicker3 AND DateTimePicker4')
end;
aber ich bekomme die Fehlermeldung
Code:
[dcc32 Fehler] Unit1.pas(161): E2010 Inkompatible Typen: 'TStrings' und 'string'
in den Zeilen mit else und end;