A bug in 1.00.0.6 related TOraTimeStamp
Posted: Fri 08 Aug 2008 23:40
Bug #1: TOraTimeStamp is not freed when result set is empty.
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
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;