paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 12:19:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* TFieldDefs.Find raises exception, index does not

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-08-25 10:12:34 +02:00
parent b9c4368fce
commit de87e3dfab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/pas2js/components/pas2jsrestutils.pas
View File

@ -218,7 +218,7 @@ begin
aFieldDefs.BeginUpdate; aFieldDefs.BeginUpdate;
While not Buf.EOF do While not Buf.EOF do
begin begin
if aFieldDefs.Find(aName.AsString)=nil then if aFieldDefs.IndexOf(aName.AsString)=-1 then
begin begin
aFieldDefs.Add(aName.AsString,GetFieldType(aType.AsString),aMaxLen.asInteger,aRequired.AsBoolean); aFieldDefs.Add(aName.AsString,GetFieldType(aType.AsString),aMaxLen.asInteger,aRequired.AsBoolean);
Inc(Result); Inc(Result);