resolver improved: handles no such json, malformed jsons.

This commit is contained in:
Norayr Chilingarian 2022-01-12 05:38:17 +04:00
parent 85bc6ea77a
commit f1c4ca6ec3
5 changed files with 30 additions and 22 deletions

View file

@ -23,7 +23,7 @@ TYPE
Count* : LONGINT;
END;
retriever- = PROCEDURE (VAR d: Tdep): StringList.TStringList;
retriever- = PROCEDURE (VAR d: Tdep; VAR strlist: StringList.TStringList): LONGINT;
TdepDesc* = RECORD
prev-, next-: Tdep;