Error leyendo una propiedad
Publicado por Diego Romero (636 intervenciones) el 29/01/2004 11:33:10
Hola al foro.
A ver si alguien me ayuda a resolver este misterio. Creo una clase a partir de TObject y la declaro así:
TCalculos=class
private
FRecords: LongWord;
public
property Records: LongWord read FRecords default 0;
end;
Nada raro, solo tiene una propiedad que vale cero por omisión ¿cierto?
Luego en mi programa declaro un objeto T de tipo TCalculos y hago algo como esto:
procedure TForm1.FormCreate(Sender: TObject);
begin
T:=TCalculos.Create;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
T.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(T.Records); <----------- Access Violation...
end;
¿Por qué?
Sin embargo si hago solamente esto:
procedure TForm1.Button1Click(Sender: TObject);
begin
T:=TCalculos.Create;
Edit1.Text:=IntToStr(T.Records);
T.Free;
end;
No produce ningún error... ¿por qué?.
------------------------------
DesarrolloDelphi:
Desarrollo de Software en Borland Delphi
------------------------------
Direcciones de la lista:
Publicar un mensaje: [email protected]
Suscribirse........: [email protected]
Desuscribirse......: [email protected]
Administrador......: [email protected]
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
------------------------------
Tu uso de Yahoo! Grupos está sujeto a las Condiciones del servicio de Yahoo!.
A ver si alguien me ayuda a resolver este misterio. Creo una clase a partir de TObject y la declaro así:
TCalculos=class
private
FRecords: LongWord;
public
property Records: LongWord read FRecords default 0;
end;
Nada raro, solo tiene una propiedad que vale cero por omisión ¿cierto?
Luego en mi programa declaro un objeto T de tipo TCalculos y hago algo como esto:
procedure TForm1.FormCreate(Sender: TObject);
begin
T:=TCalculos.Create;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
T.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(T.Records); <----------- Access Violation...
end;
¿Por qué?
Sin embargo si hago solamente esto:
procedure TForm1.Button1Click(Sender: TObject);
begin
T:=TCalculos.Create;
Edit1.Text:=IntToStr(T.Records);
T.Free;
end;
No produce ningún error... ¿por qué?.
------------------------------
DesarrolloDelphi:
Desarrollo de Software en Borland Delphi
------------------------------
Direcciones de la lista:
Publicar un mensaje: [email protected]
Suscribirse........: [email protected]
Desuscribirse......: [email protected]
Administrador......: [email protected]
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
------------------------------
Tu uso de Yahoo! Grupos está sujeto a las Condiciones del servicio de Yahoo!.
Valora esta pregunta


0