home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Database / ejemplos / controlusu / Unit1.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1999-04-11  |  1.4 KB  |  59 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. //si es distinto de -1 significa que el valor esta
  27. //en la lista
  28.   if flista.indexof(cadena) <> -1 then
  29.      result:=1
  30.   else
  31.      result:=0;
  32. end;
  33.  
  34. function Tcontrolusu.sololectura(const cadena: WideString): Integer;
  35. begin
  36.     result:=0;
  37.     if facceso.indexof(cadena) <> -1 then
  38.             result:=1
  39. end;
  40.  
  41.  
  42. initialization
  43.   Flista:=TStringlist.create;
  44.   flista.sorted:=True;
  45.   //si tecleamos en la aplicaci≤n cliente cualquiera
  46.   //de estos nombres no veremos el campo continent ni
  47.   //el grßfico.
  48.   flista.add('Pepe');
  49.   flista.add('Luis');
  50.   flista.add('Ana');
  51.   facceso:=TStringList.create;
  52.   facceso.sorted:=true;
  53.   facceso.add('Antonio');
  54.   TAutoObjectFactory.Create(ComServer, Tcontrolusu, Class_controlusu,
  55.   ciMultiInstance, tmApartment);
  56. finalization
  57.   flista.free;
  58. end.
  59.