Delphi - donde declaro una function para varios form

   
Vista:

donde declaro una function para varios form

Publicado por homer (17 intervenciones) el 25/06/2012 05:27:32
hola gente programadora, necesito su ayuda...

tengo una function de tipo boolean, y esta la utilizare en varios formularios, y mi pregutna es.. donde debo declarar esta function para ser utilizada en cualquier formulario.... recien se me ocurrio utilizarla, pro que en varios formularios utilizare una funcion que ace es buscar en una base datos un numero de registro, si existe ese numero me manda un mensage y si no existe ma manda otro mensage....

Y ahi tambien esta otro tema....en la function debo abrir la base datos para la busqueda...... el codigo que quiero utilizar en la funcion es este

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
function  busqueda(NumeroMatricula:integer, cadena:string);
var              // boton GUARDAR LINEA
   existe : boolean;
 
begin
   { si cadena es DISTINTO de  ' ' entonces hay algo escrito en la variable cadena}
   if (cadena<> ' ')     then
   begin
      existe :=false;            //          inicialiso en falso
      ADOTable1.First;        //          voy al primer registro
 
      while(not(existe ))  and  (not(ADOTable1.Eof))do        // ciclo de busqeda
      begin
         if(ADOTable1.FieldValues['numMat']=NumeroMatricula) then //hacienod la busqueda, comparando
         begin
            application.MessageBox('Este Numero Matricula ya existe','Informacio de Error',MB_OK+Mb_IconWarning);
            existe := true // variable a TRUE  esta registrado a matricula, y sale del bucle While
            end;  // fin del if
 
          ADOTable1.next;     //siguiente registro 
       end;                           // fin del while
 
       if existe = false then
       begin // si no existe ese numero en la base datos, entocnes registro ese numero y otros datos
            ADOTable1.Insert;
             //
             ...................
             ...........................
 
            ADOTable1.Post;
 
        end;
 
   end else
         ShowMessage('Debe introducir numero');
 
end;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

donde declaro una function para varios form

Publicado por E.T. (1107 intervenciones) el 25/06/2012 17:09:46
Pues en realidad, puedes declararla donde quieras, siempre y cuando la funcion sea pública, y la unidad de codigo donde la declares esté creada antes de usar la funcion.

Luego agregas al uses de la form donde quieres hacer uso de la funcion para poder ejecutarla
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar