StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POTIBQuery.Unidirectional = True. How can I rewrite code?
text
Body
copied!<p>I have many methods in legacy code that use a TIBQuery (Interbase) with Unidirectional property = False. The problem is that users sometimes get out of memory exception. I suspect it could be fixed by setting this property to True as there is no need to cache the records.</p> <p>Of course I don't want to broke the old code but I also want to fix the problem.</p> <p>Here is a code sample (not complete because of size):</p> <pre><code>procedure TAnalyzeForm.CostByInvoice; begin try qryReport.Close; qryReport.Open; qryReport.Last; qryReport.First; if qryReport.RecordCount > 0 then begin for i := 0 to qryReport.RecordCount - 1 do begin vInvoiceNo := Format('%-8s', [qryReport.FieldValues['InvoiceNo']]); vDeptId := Format('%8s', [qryReport.FieldValues['DepartmentId']]); vOrgName := Format('%-22s', [qryReport.FieldValues['OrgName']]); vInvDate := qryReport.FieldValues['InvoiceDate']; vInvNetCur := qryReport.FieldValues['InvNetCur']; vInvVatCur := qryReport.FieldValues['InvVatCur']; vInvTotCur := qryReport.FieldValues['InvTotCur']; vInvCur := qryReport.FieldValues['UnitId']; vTotNet := vTotNet + qryReport.FieldValues['InvNetValue']; vTotVat := vTotVat + qryReport.FieldValues['InvVatValue']; vTotTot := vTotTot + (qryReport.FieldValues['InvNetValue'] + qryReport.FieldValues['InvVatValue']); grdCost.Cells[1, i+1] := vInvoiceNo; grdCost.Cells[2, i+1] := vDeptId + ' ' + vOrgName; grdCost.Cells[3, i+1] := FormatDateTime('dd.mm.yyyy', vInvDate); grdCost.Cells[4, i+1] := Format('%12.2f', [vInvNetCur]); grdCost.Cells[5, i+1] := Format('%12.2f', [vInvVatCur]); grdCost.Cells[6, i+1] := Format('%12.2f', [vInvTotCur]); grdCost.Cells[7, i+1] := 'EUR'; grdCost.RowCount := i+1 + 1; qryReport.next; end; txtNetCost.Caption := Format('%12.2f', [vTotNet]); txtVatCost.Caption := Format('%12.2f', [vTotVat]); txtTotCost.Caption := Format('%12.2f', [vTotTot]); SummaryInfo(stSummaryInfoCost, 'Number of costinvoices: ' + IntToStr(qryReport.RecordCount), time, true); end else MessageDlg('nothing found!', mtInformation, [mbOk], 0); finally qryReport.Close; end; end; </code></pre> <p>The important variable is qryReport that is a TIBQuery. I want to rewrite it so it so I can set TIBQuery.Unidirectional = True. qryReport is reused at many places with different SQL so I think that is the reason for the Close, Open sequence in the beginning.</p>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload