Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-12-2012
Walterio Walterio is offline
Miembro
 
Registrado: nov 2006
Posts: 46
Poder: 0
Walterio Va por buen camino
Ejecutar procedure OnGetText "manualmente"

Hola a todos...
Trabajo con Delphi 6, ADOQuery, datasetproviders y TClientDataset.
Lo que necesito hacer es lo siguiente:
Tengo algunos campos de mi clientdataset que son del tipo internalcalc a los que les asigno un procedure en su propiedad OnGetText y estos funcionan perfectamente, pero desde una procedure genérica que trata a los campos de mi clientdataset dándole un formato de ancho, si el campo es visible o no desde una grilla genérica, le asigna títulos, etc, necesito ejecutar el OnGetText asociado al campo.
Ya pude detectar que campos tienen asignado este evento :

Código Delphi [-]
For i := 0 to (cdsMaster.FieldCount - 1) do
begin
      If (cdsMaster.Fields[i].FieldKind = fkInternalCalc) then
        If Assigned(cdsMaster.FieldByName(cdsMaster.Fields[i].FieldName).OnGetText ) then
        //Aqui deberia ejecutar el OnText del campo seleccionado...
       //Este es un engendro horrible que intent{e desde mi ignorancia, pero, obviamente, error :
      (cdsMaster.FieldByName(cdsMaster.Fields[i].FieldName).OnGetText as TProcedure).Execute ; 

End;

Sugerencias, son todas bienvenidas.

Muchas gracias.
Responder Con Cita
  #2  
Antiguo 05-12-2012
afxe afxe is offline
Miembro
 
Registrado: jul 2004
Ubicación: Malaga-España
Posts: 273
Poder: 20
afxe Va por buen camino
Prueba : cdsMaster.FieldByName(cdsMaster.Fields[i].FieldName).DisplayText, creo que este método tira del onGetText para devolver el dato almacenado en el campo.

Por cierto, no necesitas tipificarlo, puedes poner directamente: cdsMaster.Fields[i].DisplayText
__________________
Amar al mundo apasionadamente.
Responder Con Cita
  #3  
Antiguo 05-12-2012
Walterio Walterio is offline
Miembro
 
Registrado: nov 2006
Posts: 46
Poder: 0
Walterio Va por buen camino
Muchas gracias por la sugerencia, lo pruebo y comento.

Nuevamente gracias y saludos.
Responder Con Cita
Respuesta



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
Permisos a un "procedure" o "function" snapscanes API de Windows 1 19-01-2011 00:16:46
Actualización columnas "dinámicas" en Store Procedure fjcg02 Firebird e Interbase 2 19-01-2010 08:44:20
Comando "Ejecutar" de Windows XP, desde Delphi BuRtOn Varios 15 25-08-2008 17:07:15
Necesito llamar a métodos de clases "hija" desde su clase "padre" Flecha OOP 17 20-04-2007 00:03:53
STORE PROCEDURE "RETURNS". barman PHP 0 01-07-2004 12:10:08


La franja horaria es GMT +2. Ahora son las 13:47:43.


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