Delphi deshabilita los breakpoints de mi módulo

[against]

Buenos tardes a todos, estado buscando información sobre este problema que tengo aquí, en otras páginas y no conseguido dar con la solución y la única manera que encuentro de poder resolverlo es planteándolo aquí y a ver si alguien pudiera ayudarme:

Bueno como bien lo titulado el problema se origina en uno de los módulos de mi proyecto, y no en todo el código, sino desde el principio hasta más o menos la lineas 3000 o así, la cuestión es que en esa parte de código ponga donde ponga el breakpoint delphi me lo deshabilita dejándolo en un verde oliva con el aspa, a partir de esas otras no me los quita.

He probado borrando los dcus del proyecto, de solo ese modulo, de la carpeta ${DELPHI}\lib\debug, he movido de sitio el proyecto, he quitado el modulo del proyecto y lo vuelvo añadir (sin borrar el fichero .pas), pasarlo al bloc de notas y volver a guardarlo, renombrando el fichero,quitando la opción de optimize, poniendo la opción de usar los dcus en el modo debug.

Bueno no se si me dejo algo máss o no, tampoco tenia muy claro donde colocar el Post, creo que este serie el sitio más adecuado.

Un Saludo.

[[eduarcol]]

Eso a mi me sucede cuando el compilador no ejecuta esas lineas

[against]

En este caso si que las ejecuta, por ejemplo en el oncreate del modulo no me entra, tiene lineas (no son comentarios las lineas) y esta en el auto-create form, es más hace un tiempo si me funcionaba bien pero ahora ya no, es más en el resto del proyecto me funciona perfectamente el debug.

[paldave]

Prueba a reconstruir (build) todo el proyecto. (Menu Project->Build)

[[Al González]]

¡Hola a todos!

Probablemente tu unidad contiene la directiva de compilación $D/$DEBUGINFO a partir de cierta línea, pero no fue marcada la opción "Debug information" en la pestaña Compiler de las opciones del proyecto.

No dejes de contarnos.

Al.

[against]

Prueba a reconstruir (build) todo el proyecto. (Menu Project->Build)

Nada con esto me sigue pasando lo mismo, es más en la parte de código en el que me permite poner los breakpoints no se para, simplemente me los ignora.

Probablemente tu unidad contiene la directiva de compilación $D/$DEBUGINFO a partir de cierta línea, pero no fue marcada la opción "Debug information" en la pestaña Compiler de las opciones del proyecto.

Bueno sobre lo de $D/$DEBUGINFO sino me equivoco es cuando esta puesto en el pas {$DEBUGINFO ON},no? si es así no esta puesto por ningún lado en el archivo, la pestaña de "Debug Information" también la tenia marcada.

Bueno de mientras me tocara ir trabajando con showmessage si necesito debugear. También hacer un inciso en que en otros proyectos no tengo ningún problema a la hora de hacer debug.

Un saludo!

[paldave]

¿Podrías poner algunas de las líneas que te ignora, para ver si el error está en el código?

[against]

Código Delphi [-]
procedure TTpvModulo.TCabTicketNewRecord(DataSet: TDataSet);
begin TcabTicket.fieldbyname('total').Asfloat := 0;
TcabTicket.fieldbyname('codterminal').AsInteger := CodTerminalGlobal;
//TcabTicket.fieldbyname('codcomercial').AsInteger := usuarioactivo;
tcabTicket.FieldByName('Dto').asfloat:=0;
tcabTicket.FieldByName('Dto2').asfloat:=0;
TcabTicket.fieldbyname('fecha').asstring:=datetostr(date());
//TcabTicket.fieldbyname('CodUsuario').AsInteger := usuarioactivo;
TcabTicket.fieldbyname('bruto').Asfloat := 0;
TcabTicket.fieldbyname('totalticket').Asfloat := 0;
TcabTicket.fieldbyname('pagadoeuros').Asfloat := 0;
TcabTicket.fieldbyname('devolver').Asfloat := 0;
TcabTicket.fieldbyname('stock').Asfloat := 0;
TcabTicket.fieldbyname('total').Asfloat := 0;
TcabTicket.fieldbyname('baseimponible').Asfloat := 0;
TcabTicket.fieldbyname('contado').Asfloat := 0;
TcabTicket.fieldbyname('tarjeta').Asfloat := 0;
TcabTicket.fieldbyname('cheque').Asfloat := 0;
TcabTicket.fieldbyname('transferencia').Asfloat := 0;
TcabTicket.fieldbyname('abono').Asfloat := 0;
Tcabticket.fieldbyname('pabonoeuros').Asfloat := 0;
Tcabticket.fieldbyname('entregado').Asfloat := 0;
Tcabticket.fieldbyname('iva').Asfloat := modulo.tconfig2iva.asfloat;
Tcabticket.fieldbyname('manual').Asstring := 'No';
Tcabticket.fieldbyname('pagado').Asstring := 'No';
Tcabticket.fieldbyname('impreso').Asstring := 'No';
end;

Por ejemplo, pero si fuera ese el error no me dejara compilar, y tampoco es lo de que nunca se vaya a ejecutar ese trozo de código como muchos más, he llegado a pensar porque es demasiado grande el modulo.

Código Delphi [-]
procedure TTpvModulo.DataModuleCreate(Sender: TObject);
var   Ini: TIniFile;   host,bd:string;
begin   validarpalets:=true;   //hola1
  val1:='';
  val2:='';
  val3:='';
  entrarenref := False;
  actualizamospedido:=true;  
  NoBeforeEdit := 0;
  RefInvalida := False;

  Ini := TIniFile.Create (ExtractFilePath(Application.ExeName) + 'config.ini');
  host:=Ini.ReadString('Servidor','Host',' ');
  bd:=Ini.ReadString('Servidor','BBDD',' ');
  Ini.Free;
  fmmain.borrartemp;
  try     
    conexion.Connected:=false;     
    conexion.hostname:=host;    
    conexion.Database:=bd;     
    conexion.Connected:=true;   
  except     
    showmessage('Atención, Host Incorrecto.');
    Application.Terminate;
  end;
  Abrir;
   
End;

Otro ejemplo por si pensaras que en el otro nunca entrara, es más delphi me los pone como no breakpoints o algo asi se llaman a esos breakpoints con el aspa y color verde oliva, no?

Gracias por el interés por lo menos que estáis prestando aunque no tengo esperanzas de arreglarlo :P.

PD: El modulo entero no puedo ponerlo porque es demasiado largo.