It seems created as many as FetchRows property.
But when result set is empty, TOraTimeStamp is not freed.
If you run following code, your memory will be fully used
within several hours.
I struggled last several weeks with this bug. And lost faith from my customer almost
Code: Select all
rocedure TForm1.Button1Click(Sender: TObject);
begin
with uniQuery1 do begin
FetchRows := 1000;
Sql.text := 'Select timestamp_f1 from tab1';
Prepare;
Open;
// ... if result set is empty
Close
end;
end;