Cita:
roman comentó:
Antes que nada te pido de favor que ya no incluyas todo el texto en tus mensajes pues se hacen innecesariamente largos, y por favor deja tus comentarios fuera de la etiqueta QUOTE. Es muy pesado leer todo en negritas.
Ahora bien, del código que mandas es difícil deducir qué es lo que sucede ya que hay referencias que nos son claras.
Por una lado tienes el evento
procedure TTiempo.botonClick(Sender: TObject);
que genera la impresión de que tu formulario se llama "Tiempo":
Código:
type
TTiempo = class(TForm)
...
end;
Sin embargo, después mencionas que tform1.horarios:treg no funciona; y de aquí da la impresión de que el formulario es Form1 y no Tiempo.
Por otra parte, en TTiempo.botnClick tienes la asignación
H1:=horarios;
pero horarios es una función!
Y finalmente, la función Horarios está suelta, no pertenece a ningún formulario y, como te mencioné en el mensaje anterior, debes asegurarte que tu función (Horarios) sea realmente un método del formulario, tanto que esté declarado dentro de la clase del formulario como que su implementación esté anteceidad del nombre de la clase del formulario.
// Saludos
|
si Horarios es una funcion que regresa una serie de parametros
esta funcion esta en el mismo formulario que el resto (el from1 solo muestra una foto y una etqueta no parcipa de el resto de la funcion)
La funcion trabaja sin problemas pero cada vez que lallamo tengo que abrir la table1 leer un dato pasarselo a la funcion esta lo prosesa y todo oK.
lo que queiro es
Table1.Open;
Varxx:=Table1.FieldByName('DiaEntrada').AsInteger;
code
code
Table1.close;
Pero dentro de la funcion
no afuera
Por que la llamo desde 35 puntos en este form
y cada ves que la llamo dentro reclama
la unica explicacion que encuentro es que este en el orden de esto.
type
Treg = Record
Fecha, horario:TDateTime;
Ano, Mes, Dia, Hora, Minuto, Segundo, MSegundo :Word;
Hora_c, Dia_c, existe : String;
end;
TTiempo = class(TForm)
boton: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Table1: TTable;
DataSource1: TDataSource;
estube registrando los foros antiguos y no encuentro ningun llamado a tablas dentro de funciones.
gracias de antemano.