RPC HELP TMult Count Example

From VistApedia
Revision as of 22:43, 3 July 2015 by Kdtop (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

RPC Broker Help Home

Count Example (TMult Class)

Back

The following program code displays the number of items in a Mult class in the caption of a label when the user clicks the CountItems button:


   procedure TForm1.CountItemsClick(Sender: TObject);
   begin
     Label1.Caption := 'There are ' + IntToStr(Mult.Count) +
     ' items in the Mult.';
   end;