23-07-2008, 04:25 PM
Kod:
procedure TForm1.Button1Click(Sender: TObject);
var
tar1,tar2 : String;
begin
tar1:=datetostr(dateTimePicker1.date);
tar2:=datetostr(dateTimePicker2.date);
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from tablo where tarih>=:tar1 and tarih<=:tar2');
query1.ParamByName('tar1').AsDate:=strtodate(edit1 .Text);
query1.ParamByName('tar2').AsDate:=strtodate(edit2 .Text);
query1.Open;
end;