Procedure

TfrmReportsAdhocComponent1.cboICDExit

Module

fReportsAdhocComponent1

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmReportsAdhocComponent1

Declaration

procedure cboICDExit(Sender: TObject);


Source

715   procedure TfrmReportsAdhocComponent1.cboICDExit(Sender: TObject);
716   var
717     i: integer;
718   begin
719     for i := 0 to ORListBox2.Items.Count - 1 do
720       if PHSCompRec(ORListBox2.Items.Objects[i])^.ID = uCurrentComponent then
721         PHSCompRec(ORListBox2.Items.Objects[i])^.ICDText := cboICD.Text;
722   end;