Procedure

ListSymbolTable

Module

rMisc

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure ListSymbolTable(Dest: TStrings);

Called-By Hierarchy


           ListSymbolTable
TfrmDbgServer.FormCreate┘ 

Called-By

Name Declaration Comments
TfrmDbgServer.FormCreate procedure FormCreate(Sender: TObject); -


Source

190   procedure ListSymbolTable(Dest: TStrings);
191   var
192     i: Integer;
193     x: string;
194   begin
195     Dest.Clear;
196     CallV('ORWUX SYMTAB', [nil]);
197     i := 0;
198     with RPCBrokerV.Results do while i < Count do
199     begin
200       x := Strings[i] + '=';
201       Inc(i);
202       if i < Count then x := x + Strings[i];
203       Dest.Add(x);
204       Inc(i);
205     end;
206   end;