Tim,

TDBISAMTable.Locate has a problem when passed a null variant
for a large integer field. I've included the problem code
with a possible patch. 4.22 Build 5.

Sean

<SNIP>
                  TempField:=TField(Fields[I]);
                  if TempField.IsBlob then

DatabaseErrorFmt(SNoBlobLocate,[TempField.FieldName],Self)

<PATCH START>
                  else if VarIsNull(KeyValues[I]) then
begin
          TempField.Clear;
                    end {if null value}
<PATCH END>


        else
                     begin
                     if (TempField is TLargeIntField) then

TLargeIntField(TempField).AsLargeInt:=KeyValues[I]
                     else
                        TempField.Value:=KeyValues[I];
                     end;
                  end;
<SNIP>

Sean,

<< TDBISAMTable.Locate has a problem when passed a null variant for a large
integer field. I've included the problem code with a possible patch. 4.22
Build 5. >>

Thanks.   You are correct and a fix will be in the next build.

--
Tim Young
Elevate Software
www.elevatesoft.com