Compilador Delphi 2006 salta sentencias

[joan_mvf]

Hola a todos, tengo el siguiente problema, he instalado delphi 2006, y me esta dando el siguiente problema, delphi me salta sentencias, o mejor dicho el compilador, me brinca lineas de codigo. Cosas que yo quiero ke yo haga mi programa no me las hace, pero si la linea de codigo le pongo un action break o un trace como le kieran llamar, si me ejecuta la sentencia.

por ejemplo esta es una linea de codigo ke no me ejecuta, si le pongo el trace si lo hace.

out_articulos_alquiler.Enabled:=True;


alguno ke me ayude con esto, un amigo mio me dijo ke se resolvia reinstalando a delphi, pero ya lo he instalado como 3 veces y sigue con el problema.

[[maeyanes]]

Y si pones más código? Para que podamos hacernos una idea de por que te podría saltar esas líneas de código...

A veces por optimización de código, Delphi elimina ciertas líneas por que en realidad no se usan o no afectan en nada... ese podría ser tu caso..



Saludos...

[joan_mvf]

Por ejemplo yo tengo un formulario llamado out_articulos_alquiler que es el de consulta y otro in_articulos_alquiler, que es el de entrada, cuando yo etoy en el de consulta y quiero hacer una nueva entrada, en el evento FormPaint de in_articulos_aquiler yo hago eso, solamente tengo esa linea de codigo ahi

out_articulos_alquiler.enabled:=false;

desabilito el formulario de consulta y luego cuando termino de trabajar con la edicion, en el evento FormClose de in_articulos_alquiler vuelvo y activo el formulario de consulta, tengo solamente la siguiente linea de codigo

out_articulos_alquiler.Enabled:=True;
Action:=cafree;
in_articulos_alquiler:=nil;

[joan_mvf]

este es otro formulario, pero con el mismo problema, te agrego las lineas de codigo del formulario de consulta y de entrada, eso es todo lo que tnego en los dos formularios.

formulario consulta out_paises

Código Delphi [-]
procedure Tout_paises.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
out_paises:=nil;
end;

procedure Tout_paises.gridDblClick(Sender: TObject);
var
  sql:string;
begin
nuevo_registro:=false;
if validar_grid(ds)then
 begin
    Application.CreateForm(Tin_paises,in_paises);
    sql:='select * from pais where codigo='+ds.DataSet.fieldbyname('codigo').AsString;
    crear_query_live(in_paises,dm.Database,in_paises.ds,sql);
    in_paises.ds.DataSet.Edit;
    in_paises.show;
 end;   
end;

procedure Tout_paises.nuevoClick(Sender: TObject);
var
  sql:string;
begin
    nuevo_registro:=true;
    Application.CreateForm(Tin_paises,in_paises);
    sql:='select * from pais limit 0';
    crear_query_live(in_paises,dm.Database,in_paises.ds,sql);
    in_paises.ds.DataSet.Append;
    in_paises.show;
end;

procedure Tout_paises.buscarClick(Sender: TObject);
 var
   sql:string;
begin
   sql:='Select * from Pais';
   crear_query(out_paises,dm.database,ds,sql);
end;

procedure Tout_paises.cancelarClick(Sender: TObject);
begin
    close;
end;

formulario entrada in_paises

procedure Tin_paises.cancelarClick(Sender: TObject);
begin
    close;
end;

procedure Tin_paises.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    out_paises.Enabled:=True;
    Action:=cafree;
    in_paises:=nil;
end;

procedure Tin_paises.FormPaint(Sender: TObject);
begin
    out_paises.enabled:=false;
end;

procedure Tin_paises.FormShow(Sender: TObject);
begin
    if out_paises.nuevo_registro=false then
      s2:='¿Desea guardar los cambios?'
    else
      s2:='¿Desea salvar este registro?';
end;

procedure Tin_paises.salvarClick(Sender: TObject);
var
  ok:integer;
begin
if validar_dbedit(descripcion,'Digite la Descripcion...!!')then
   begin
      ok:=mensaje_aviso(s2,'&Si','&No');

          IF  ok=1 Then
          begin
          ejecutar_query(dm.Database,'BEGIN WORK');
          if codigo.Text='' then
            begin
              codigo.Text:='0';
              ds.dataset.post;
            end
          else
            ds.DataSet.post;
          out_paises.buscar.ButtonClick;
          ejecutar_query(dm.Database,'COMMIT WORK');
              close;
           END
            else
               if ok=2 then close;
    end;
end;

//Lo edite para poner las etiquetas Delphi

[[egostar]]

Yo creo que el problema esta aqui

Código Delphi [-]
procedure Tin_paises.FormPaint(Sender: TObject);

No seria mejor usar el evento OnShow???

Saludos.

[[basti]]

Tengo Delphi 7 y no aparece ese evento en el form, pero por el nombre supongo que será un nuevo evento que se ejecuta cuando la ventana hace un Paint.

El Paint no se hace siempre, sólo si es necesario redibujar el formulario. Por ejemplo cuando minimizas la ventana y la vuelves a restaurar, entonces se ejecuta paint. O cuando abres otra ventana que oculta parcialmente tu formulario y luego lo vuelves a mostrar.

Cuando haces un debug en Delphi, ocultas tu formulario con el propio Delphi, por eso pasa por esa línea, porque es necesario volver a redibujar la ventana para mostrarla.

Mejor solución es, como bien dice egostar, usar el evento OnShow.
Aunque si no es necesario usar un evento, ¿para que usarlo?, esto es lo que yo haría

Código Delphi [-]
procedure Tout_paises.nuevoClick(Sender: TObject);
var
  sql:string;
begin
    nuevo_registro:=true;
    Application.CreateForm(Tin_paises,in_paises);
    sql:='select * from pais limit 0';
    crear_query_live(in_paises,dm.Database,in_paises.ds,sql);
    in_paises.ds.DataSet.Append;
    in_paises.show;
    enabled:=false;
end;

Aunque podrías probar con formularios Modales, quizás te sirvan y te ahorrarían código

Código Delphi [-]
procedure Tout_paises.nuevoClick(Sender: TObject);
var
  sql:string;
begin
    nuevo_registro:=true;
    Application.CreateForm(Tin_paises,in_paises);
    sql:='select * from pais limit 0';
    crear_query_live(in_paises,dm.Database,in_paises.ds,sql);
    in_paises.ds.DataSet.Append;
    in_paises.showModal;
end;