https://vistapedia.com/index.php?action=history&feed=atom&title=TORComboBox_Example 2026-04-21T20:28:48Z Revision history for this page on the wiki MediaWiki 1.43.0 https://vistapedia.com/index.php?title=TORComboBox_Example&diff=9488&oldid=prev 2008-07-22T22:20:26Z

<p></p> <p><b>New page</b></p><div>Here is an example from CPRS of how patients are selected by starting to type in the name, and the list of available entries is retrieved from the server.<br /> <br /> <br /> TORComboBox<br /> <br /> Event OnNeedData<br /> --&gt; cboPatientNeedData<br /> <br /> procedure TfrmPtLabelPrint.cboPatientNeedData(Sender: TObject;<br /> const StartFrom: String; <br /> Direction, InsertAt: Integer);<br /> ...<br /> PatientList.Assign(SubSetOfPatients(NoAlias, Direction));<br /> ...<br /> <br /> <br /> {found in rCore}<br /> function SubSetOfPatients(const StartFrom: string; Direction: Integer): TStrings;<br /> { returns a pointer to a list of patients (for use in a long list box) - The return value is<br /> a pointer to RPCBrokerV.Results, so the data must be used BEFORE the next broker call! }<br /> begin<br /> CallV(&#039;ORWPT LIST ALL&#039;, [StartFrom, Direction]);<br /> MixedCaseList(RPCBrokerV.Results);<br /> Result := RPCBrokerV.Results;<br /> end;<br /> <br /> Pretty sure the returned format it:<br /> <br /> IEN^Name<br /> IEN^Name<br /> IEN^Name</div>

Kdtop