home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Database / ejemplos / controlusu / Unit1.~pa < prev    next >
Encoding:
Text File  |  1999-04-10  |  1.3 KB  |  57 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   ComObj, ActiveX, Pserver1_TLB,classes,dialogs;
  7.  
  8. type
  9.   Tcontrolusu = class(TAutoObject, Icontrolusu)
  10.   protected
  11.     function busqueda(const cadena: WideString): Integer; safecall;
  12.     function sololectura(const cadena: WideString): Integer; safecall;
  13.     {function sololectura(const cadena: WideString): Integer; safecall;}
  14.     { Protected declarations }
  15.   end;
  16. var
  17.   Flista:TStringList;
  18.   FAcceso:TStringList;
  19.  
  20. implementation
  21.  
  22. uses ComServ;
  23.  
  24. function Tcontrolusu.busqueda(const cadena: WideString): Integer;
  25. begin
  26.   if flista.indexof(cadena) <> -1 then
  27.      result:=1
  28.   else
  29.      result:=0;
  30. end;
  31.  
  32. function Tcontrolusu.sololectura(const cadena: WideString): Integer;
  33. begin
  34.     result:=0;
  35.     if facceso.indexof(cadena) <> -1 then
  36.             result:=1
  37. end;
  38.  
  39.  
  40. initialization
  41.   Flista:=TStringlist.create;
  42.   flista.sorted:=True;
  43.   //si tecleamos en la aplicaci≤n cliente cualquiera
  44.   //de estos nombres no veremos el campo continent ni
  45.   //el grßfico.
  46.   flista.add('Pepe');
  47.   flista.add('Luis');
  48.   flista.add('Ana');
  49.   facceso:=TStringList.create;
  50.   facceso.sorted:=true;
  51.   facceso.add('Antonio');
  52.   TAutoObjectFactory.Create(ComServer, Tcontrolusu, Class_controlusu,
  53.   ciMultiInstance, tmApartment);
  54. finalization
  55.   flista.free;
  56. end.
  57.