Changeset 738 for cprs/branches/tmg-cprs/CPRS-Lib/ORNet.pas

Timestamp:

Apr 19, 2010, 5:24:20 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

Fixed Text Object Parameters

File:

• cprs/branches/tmg-cprs/CPRS-Lib/ORNet.pas (modified) (2 diffs)

cprs/branches/tmg-cprs/CPRS-Lib/ORNet.pas

@@ -24 +24 @@
 function GetRPCMax: integer;
 procedure LoadRPCData(Dest: TStrings; ID: Integer);
+function AccessRPCData(ID: Integer) : TStringList; //kt added  -- Caller DOESN'T own object
 function DottedIPStr: string;
 procedure CallRPCWhenIdle(CallProc: TORIdleCallProc; Msg: String);
@@ -461 +462 @@
 end;
 
+function AccessRPCData(ID: Integer) : TStringList;
+//kt added  -- Caller DOESN'T own object
+begin
+  Result := nil;
+  if (ID > -1) and (ID < uCallList.Count) then Result := TStringList(uCallList.Items[ID]);
+end;
+
+
 function DottedIPStr: string;
 { return the IP address of the local machine as a string in dotted form: nnn.nnn.nnn.nnn }