Procedure

UpdateChildren

Module

rTemplates

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure UpdateChildren(ID: string; Children: TStrings);

Called-By Hierarchy


                          UpdateChildren
                      SaveAllTemplates┘ 
    TfrmTemplateEditor.btnApplyClick┤   
TfrmTemplateEditor.mnuRefreshClick┘ │   
       TfrmTemplateEditor.btnOKClick┤   
   TfrmTemplateEditor.FormCloseQuery┘   

Called-By

Name Declaration Comments
SaveAllTemplates function SaveAllTemplates: boolean; -


Source

152   procedure UpdateChildren(ID: string; Children: TStrings);
153   var
154     i: integer;
155   
156   begin
157     with RPCBrokerV do
158     begin
159       ClearParameters := True;
160       RemoteProcedure := 'TIU TEMPLATE SET ITEMS';
161       Param[0].PType := literal;
162       Param[0].Value := ID;
163       Param[1].PType := list;
164       for i := 0 to Children.Count-1 do
165         Param[1].Mult[IntToStr(i+1)] := Children[i];
166       CallBroker;
167     end;
168   end;