Fix one memory leak in threaded queries (detected by testing and comparing, using taskmanager)

This commit is contained in:
Ansgar Becker
2007-11-04 13:23:47 +00:00
parent a42a84ff6e
commit 7cc7007de1

View File

@ -338,7 +338,7 @@ begin
on E: Exception do begin on E: Exception do begin
if E.Message = SCanNotOpenResultSet then begin if E.Message = SCanNotOpenResultSet then begin
Result := true; Result := true;
ADataset := nil; FreeAndNil(ADataset);
end else AExceptionData := GetExceptionData(E); end else AExceptionData := GetExceptionData(E);
end; end;
end; end;