Hallo Fengi,
vorausgesetzt Du redest von einer
Paradox-Datenbank:
Code:
var
s : string;
begin
....
s := datetostr(monthcalendar1.Date); //enthält dann z.B.: 23.11.2003
tab.Filter := 'Datum=''' + s + '''';
tab.Filtered := true;
....
// wenn Datensätze vorhanden sind tu was
if tab.RecordCount > 0 then begin
....
end;
....
tab.Filtered := false;
end;
tab.RecordCount sollte den Wert ändern, sobald das Filter auf true gesetzt wird
mfg
eddy