Danke für den Tip!
Das mit dem RecordCount hab ich auch im Verdacht. Hab die GetSendingScheduleItems-Prozedur erstmal so abgeändert:
Delphi-Quellcode:
procedure TDBModule.GetSendingScheduleItems (ActiveOnly: Boolean; MaxItems: Integer;
var List: TSendingScheduleList);
var
s:
String;
RecCnt: Cardinal;
begin
RemoveInactiveSendingScheduleItems;
with AdsQuery,
SQL do
//try
begin
Clear;
if ActiveOnly
then
s := '
WHERE Active=TRUE '
else s := '
';
Add ('
SELECT * FROM ' +
'
SendingSchedule ' +
s +
'
ORDER BY ' +
'
SendingTimestamp');
Open;
RecCnt := RecordCount;
// ** Neu ...
if (RecCnt > 0)
then
AssignSendingScheduleItems (List, AdsQuery, RecCnt);
Close;
{ except
on E: Exception do ThrowSQLException (SQL[0], FALSE, E);}
end;
end;
... und auch die AssignSendingScheduleItems Routine angepasst und einem Anwender ein Update geschickt. Mal schauen, was er die Tage sagt.
Falls es da immernoch Probleme gibt, bau ich den Vorschlag von dir mal rein.