Asignar valores a los atributos de una clase
Publicado por lily (3 intervenciones) el 20/12/2010 20:00:31
Hola estoy empezando la programacion con delphi y tengo la siguiente duda, cuando trato de asignarle valor a las variables del objeto me sale una exepcion y no me escribe nada en el fichero:
type
TGato = class
public
nombre: string;
constructor create(Pnombre:string);
procedure CreaFichero();
procedure LeeFichero();
procedure BorrarFichero();
end;
var
Gato: TGato; //creo el objeto
txt: TextFile;
implementation
procedure TGato.CreaFichero();
begin
AssignFile(txt,'D:\Fichero.txt');
Rewrite(txt);
Writeln(txt,Gato.nombre); // aki es donde me da la exepcion...
CloseFile(txt);
end;
procedure TGato.LeeFichero();
begin
Reset(txt);
Readln(txt);
CloseFile(txt);
end;
Agradecere alguna ayuda y cualquier sugerencia
Lily
type
TGato = class
public
nombre: string;
constructor create(Pnombre:string);
procedure CreaFichero();
procedure LeeFichero();
procedure BorrarFichero();
end;
var
Gato: TGato; //creo el objeto
txt: TextFile;
implementation
procedure TGato.CreaFichero();
begin
AssignFile(txt,'D:\Fichero.txt');
Rewrite(txt);
Writeln(txt,Gato.nombre); // aki es donde me da la exepcion...
CloseFile(txt);
end;
procedure TGato.LeeFichero();
begin
Reset(txt);
Readln(txt);
CloseFile(txt);
end;
Agradecere alguna ayuda y cualquier sugerencia
Lily
Valora esta pregunta
0