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 24-05-2012
Avatar de Jere_84
Jere_84 Jere_84 is offline
Miembro
NULL
 
Registrado: sep 2011
Ubicación: Córdoba, Argentina
Posts: 214
Poder: 0
Jere_84 cantidad desconocida en este momento
GotoBookMark record not found

Este código funcionaba correctamente en versiones de delphi 6, pero al trasladarlo a Delphi 2010 sale el error "ClientDataSet record not found". Alguien sabe cual puede ser el problema.

Código Delphi [-]
    bmReg := GetBookmark;
    try
      sPredAnt := FieldByName( 'Prede' ).AsString;
      if (sPredAnt = 'P') or Locate('Prede', 'P', []) then
      begin
        Edit;
        FieldByName( 'ImagenPrede' ).Assign( TBitmap.Create );
        FieldByName( 'Prede' ).AsString := ' ';
        Post;
      end;
    finally
      GotoBookMark(bmReg); <----Aqui da el error

Slds.
Responder Con Cita
  #2  
Antiguo 24-05-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

A partir de Delphi 2009 GetBookmark devuelve un puntero a TBytes.

Probá haciendo:
Código Delphi [-]

var
  bmReg: TBookmark;  // <== este cambio
begin
  ...
  bmReg := GetBookmark;
  try
    sPredAnt := FieldByName( 'Prede' ).AsString;
    if (sPredAnt = 'P') or Locate('Prede', 'P', []) then
    begin
      Edit;
      FieldByName( 'ImagenPrede' ).Assign( TBitmap.Create );
      FieldByName( 'Prede' ).AsString := ' ';
      Post;
    end;
  finally
    GotoBookMark(bmReg);
  end;
...

Saludos.

Edito: No podía encontrar el artículo donde lo había leido, lo acabo de ubicar : Release Notes for Delphi 2009 ...
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 25-05-2012 a las 01:56:08.
Responder Con Cita
  #3  
Antiguo 30-05-2012
Avatar de Jere_84
Jere_84 Jere_84 is offline
Miembro
NULL
 
Registrado: sep 2011
Ubicación: Córdoba, Argentina
Posts: 214
Poder: 0
Jere_84 cantidad desconocida en este momento
Hice el cambio a Pointer y el error sigue dando, hice una prueba y comente estas dos lineas de mi codigo:
Código Delphi [-]
 FieldByName ( 'ImagenPrede' .) Asignar (TBitmap.Create);
 FieldByName ( 'Prede' ). AsString: = "" ;

Y el error no ocurre porque sera que al editar los campos ocurre el error: ClientDataSetCliente: Record not found.
Que método alternativo podría utilizar?
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
no corresponding master record found Jere_84 Varios 4 13-03-2012 14:15:26
Record not found rinaib Conexión con bases de datos 0 07-03-2011 09:30:12
'No corresponding master record found.' nferigo Varios 0 22-03-2010 17:20:50
Record not Found juliobuitrago Firebird e Interbase 0 25-12-2007 22:00:32
Record not found or changed by another user felixgo Conexión con bases de datos 1 30-09-2005 13:07:40


La franja horaria es GMT +2. Ahora son las 11:59:12.


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