home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Database / ejemplos / CORBA16 / SERV1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-09-24  |  767 b   |  46 lines
  1. unit serv1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls;
  8.  
  9. type
  10.   TMiServidor = class(TForm)
  11.     Label1: TLabel;
  12.     Label2: TLabel;
  13.     procedure FormCreate(Sender: TObject);
  14.   private
  15.     { Private declarations }
  16.      FClientCount: Integer;
  17.   public
  18.     { Public declarations }
  19.     procedure UpdateClientCount(Incr: Integer);
  20. end;
  21.  
  22. var
  23.   MiServidor: TMiServidor;
  24.  
  25. implementation
  26.  
  27. {$R *.DFM}
  28.  
  29. procedure TMiServidor.UpdateClientCount(Incr: Integer);
  30. begin
  31.   FClientCount := FClientCount+Incr;
  32.   label2.Caption := IntToStr(FClientCount);
  33. end;
  34.  
  35.  
  36. procedure TMiServidor.FormCreate(Sender: TObject);
  37. begin
  38.  FClientCount:=0;
  39.  label2.caption:=inttostr(0);
  40. end;
  41.  
  42. end.
  43.  
  44.  
  45.  
  46.