Problema con atributos privados

[[Caral]]

Hola
Pues no se entiende muy bien, pero veamos por partes:
En el oncreate indicas:
D := SaldoDebe;
H := SaldoHaber;
Calc_Saldo;
Que dice esto?
Cuando se cree el form, D y H obtengan el valor de la bd y seguidamente cambienlo por el del procedimiento Calc_Saldo.
Osea que seria lo mismo que poner en el evento oncreate directamente el valor del procedimiento, ya que es lo que estas haciendo.
Para mi si lo que se quiere es limpiar el valor cada vez que se cree el form, o usaria una directriz o lo haria mas bien cuando se destruya el from, no antes.
Saludos

[[egostar]]

A menos que estes creando la forma en tiempo de ejecución es correcto usar el código en el evento OnCreate, pero......., si no la estas creando te recomiendo que uses el evento OnShow.

Salud OS

[Durbed]

A ver, al crear la forma leo los valores de la base de datos y se los asigno a los atributos D y H, es un ejemplo sencillo para no extenderme, pues el procedimiento no tiene una linea, el problema es que dentro del procedimiento D y H tienen valor 0 cuando en el evento OnCreate han tomado otros valores (lo he comprobado).

He probado a declarar los atributos como públicos pero el resultado es el mismo.

Un saludo y gracias.

PD: EdSaldo es un TAdvEdit que admite un valor real y ahí no esta el problema, sino en D y H.

[keyboy]

Tan solo para eliminar posibilidades. ¿No tienes declarados D y H dos veces? Por ejemplo, si en el evento OnCreate tienes:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  D, H: Real;

begin

  ...

  D := SaldoDebe;
  H := SaldoHaber;
  Calc_Saldo;
end;

En este caso, Los D y H que ve Calc_Saldo son distintos de los que ve OnCreate.

Bye

[Durbed]

jajajaja keyboy gracias, te juro que había revisado el código y no lo vi, en que estaría mi cabeza acepto collejas.

PD: Ya estaba pensando en alguna elucubración extraña para arruinarme la semana