
28-10-2003
|
 |
Miembro
|
|
Registrado: oct 2003
Ubicación: Santiago Chile
Posts: 31
Reputación: 0
|
|
Cita:
Posteado originalmente por roman
Entonces no debería haber ningún problema. Asegúrate de haber declarado la función "dentro" del formulario:
Código:
TForm1 = class(TForm)
public { o private}
function TuFuncion: Tipo;
end;
y de anteponer la clase del formulario en la implementación de la función:
Código:
function TForm1.TuFuncion: Tipo;
begin
end;
la funcion es funcionando OK sin la tabla dentro
Los llamados a la tabla fuera de la funcion ok
pero dentro de la funcion no
type
Treg = Record
Fecha, horario:TDateTime;
Ano, Mes, Dia, Hora, Minuto, Segundo, MSegundo :Word;
Hora_c, Dia_c, existe : String;
Function Horarios: Treg;
var
H: TReg;
DateTime : TDateTime;
begin
DateTime := Time;
//etc etc
end;
procedure TTiempo.botonClick(Sender: TObject);
begin
Table1.Open;
//
// leer un un dat para comparar con el resto si lo ago dentro de la funcion alega
//
Table1.Close;
H1:=horarios;
Label1.Caption:= H1.Dia_c+'/'+H1.Hora_c ;
// etc etc
end;
esto funcona
y no me deja funtion tform1.horarios:treg;
Disculpa las molestias y muchas gracias
// Saludos
|

__________________
www.cybervanet.cl
El matrimonio es como un submarino
puede flotar pero esta diseñado para hundirse
|