Icon View Incident Report

Serious Serious
Reported By: Mike Saunders
Reported On: 6/25/2021
For: Version 3.01 Build 1
# 4841 Calling the TDataSet Find Method with the NearestMatch Parameter Set to True Results in Error

My problem is when I try to use 'Find' with the Nearest parameter set true

This works fine when I enter a value that exists but if I enter a missing value 'Find' does not appear to work properly When I click btShow button after executing 'Find' I get the error 'List index -1 out of bounds'.

procedure TfmMain.btLoadClick(Sender: TObject);
begin
  Database.LoadRows(CustomerLookup);
end;

procedure TfmMain.btFindClick(Sender: TObject);
begin
    CustomerLookup.Columns['Account'].SortDirection:=sdAscending;
    CustomerLookup.SortCaseInsensitive:=True;
    CustomerLookup.SortLocaleInsensitive:=False;
    CustomerLookup.sort;
    CustomerLookup.Find(['Account'],[edSearch.text],True,True,False);
end;

procedure TfmMain.btShowClick(Sender: TObject);
begin
   showmessage(CustomerLookup.Columns['Account'].asstring);
end;



Resolution Resolution
Fixed Problem on 7/8/2021 in version 3.01 build 2


Products Affected Products Affected
Elevate Web Builder
Elevate Web Builder Trial

Image