Procedure TFrmDefQXGYS. BtnQueryClick (Sender: TObject);
Var
GSXXRec: TDictionary;
The begin
Inherited;
If DoSelectGSXX (GSXXRec) then
CdsGSXX. Locate (' GSXX01 VarArrayOf ([GSXXRec. Items [' sGSID]]], []);
The end;

CodePudding user response:

According to undeclared identifier 'TDictionary'

CodePudding user response:

The function DoSelectGSXX (var GSXXRec: TDictionary; IGSLX: Integer=0;
BRoles: Boolean=False; StrSql: ISuperObject=nil; IsSelf: Boolean=False) : Boolean;
Var
XMLString: String;
Json: ISuperObject;
The begin
Result:=False;
Try
Json: SO=();
If ur. Items [' OperGSXX] <> "' then
AddJson (Json, [' CZGS], [MakeJsonForOperID (ur) Items) [' OperGSXX]]).
AddJson (Json, [' Length '], [1]).//company code length control, 0 means no control, 1 control length can be only four
AddJson (Json, [' GSXX01], [ur. Items [' sGSID]]).
AddJson (Json, [' GSID], [Copy (ur) Items [' sGSID], 1, 2)]);
Case iGSLX of
Zero: AddJson (Json, [' iGSLX], [0]).
1: AddJson (Json, [' iGSLX], [1]).
2: AddJson (Json, [' iGSLX], [2]).
3:
The begin
AddJson (Json, [' iGSLX], [3]).
If ur. Items [' OperGSXX]=' 'then
AddJson (Json, [' CXJB], [StrToInt (ur) Items) [' iCXJB]]).
AddJson (Json, [' isSelf], [word (isSelf)]);
The end;
The end;
AddJson (Json,
[' sqlid],
[' JlClientCom_Bus. Pub_GSXX ']);
If Assigned (strSql) then
Json. The Merge (strSql);
With DM00. CdsGSXX do
The begin
XMLData:=TTransport. Select (Json. AsString) are identical;
If IsEmpty then
The begin
Result:=False;
End
The else
The begin
XMLString:=DoQuery_Data (' DynFrmSelFour 'GetMessageString (' CJLForm', ' ', 'MSG039), dm00. CdsGSXX);
If Length (XMLString) & gt; 0 then
The begin
GSXXRec:=TDictionary . Create;
XMLData:=XMLString;
GSXXRec. Add (' sGSID 'FieldByName (' GSXX01). AsString) are identical.
GSXXRec. Add (' sName, FieldByName (' GSXX02). AsString) are identical.
Result:=True;
The end;
The end;
The end;
Except,
On E: the Exception do
The begin
MyMessageError (GetMessageString (' CJLForm ', ', 'MSG040) + # 13 + E.M essage);
The end;
The end;
The end;

CodePudding user response:

Refer to
System. Generics. Collections