Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-02-2015
joseprad joseprad is offline
Miembro
 
Registrado: oct 2006
Posts: 36
Poder: 0
joseprad Va por buen camino
Implementar evento en una rutina

Hola amigos.

Estoy escribiendo una función para saber si una linea de un grid esta vacía
Código Delphi [-]
function IsRowEmpty(Grid: TGrid): Boolean;
var
  NumCols: Integer;
  i, Camp: Integer;
begin
  NumCols := Grid.Columns.Count;
  Result := False;
  Camp := 0;
  with Grid do begin
    first;
    while not eof do begin
      for i := 0 to NumCols - 1 do begin
        if VarType(SelectRow.Value[i]) = 1 then
          inc(Camp);
      end;
      Next;
    end;
  end;
  if Camp = NumCols then
    Result := True;
end;

El problema es que desearía desconectar al inicio, los eventos OnBeforePost y OnAfterPost y volver a implementarlos al final.

Para desconectarlos no tengo problema:
Código Delphi [-]
Grid.OnBeforePost:=nil;
Grid.OnAfterPost:=nil

Lo que no se como hacer es para reponerlos.
Mucha gracias.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Rutina de Impresion TRichEdit darkamerico OOP 5 20-03-2013 00:09:06
Traducción de rutina JAVA waly2k1 JAVA 2 24-07-2010 10:27:10
Rutina muy lenta... KAYO Firebird e Interbase 10 04-07-2007 17:14:44
Que tiene esta Rutina? esimon OOP 5 04-07-2006 17:19:03
No sale rutina SQl ............ Coco_jac SQL 2 30-11-2005 16:52:44


La franja horaria es GMT +2. Ahora son las 23:42:13.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi